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A L'ORDINATEUR INDIVIDUEL, les rédacteurs, les conseillers techniques, les correspondants à 
l'étranger, l'équipe entière se mobilise pour vous fournir tous les mois une information 
complète et de qualité. Le monde de la micro bouge : L‘0.1. teste pour vous les micros et 
logiciels qui apparaissent sur le marché. ll vous dit lesquels choisir et pourquoi. Vous êtes déjà 
équipé ef vous souhaitez tirer le maximum de votre machine ? Les spécialistes de L'O.1. vous livrent 
conseils, programmes inédits et astuces d'utilisation. Lisez chaque mois L'ORDINATEUR INDIVIDUEL. 
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DECOUVREZ PASCAL 
SUR APPLE ]J[, //e, /{c 


John COLIBRI 

Le neuvelle édition en 2 tomes de ce grand classique. lorimet 
une initistion pas 5 pan, Par l'exemple. Dévrit lus nmiviuités 
de Is versiea 1,2, nt l'utilisation du PASCA/. sur Al/L} e pt 
APPLE (/c. Comprend uyssi leg schémas mémeire et les exeiples 
d'exécution. 


Tome L: maiëriel nécessaire branchements emorçage. 
verisbles, contrôle du pmRramve. prœæédures et fonctiños 
(locahté, Peramétres. récurainté). 132 poge, 9? rog rat 
193 schéass er fifure6. 

je Mvre seul: ss... PPEEEEEE --140 F TTC 
Le disquette du livres... ss. 18 F TTC 


Tone 2; tatbleeux, eonrégiatresents, fitlers, Ansehbles, 
pointeurs. Lnités nt segments, Chaïnage, fichinre de 
commaude, lancement automatique. Une mine hour la traitent 
dus [lichlèrs, on emposé complet sur les Pelninurs. at 33 
fabuleuses énnexes QU an (ont Un ouvrage ile référence. 444 
poges, 175 figurer, 8 Jn‘ofrurnimes. 
Le livre seul: ..sssssessssssss 

La disquette du livre.,.,,.... 


cssesrt48 F TTC 
18 F TTC 


Disquette S'utllitairee Ciastallaüon, imp reshion de 
pogrammes. utilisation de la souris. conversions. elo) 
Le disquette d'utiliteirge:-.... 9% VF Trc 


BASIC APPLESOFT DOS 3.3 et PRODOS 


Peut MERRY 
Guiie de référence alphahétique. Définition, utilisation, 
exemples, tyYpes d'erreurs. Programmes de gestion de lMoniers 
calculs scientiiques, grabhinues haute et borsc fésolilion. 
éme éditien augmentée avec PHUNDOS, L02 brogremmed, 641! 
psres. 

Le livre seul-.,,,, srl 
Le disquette du llvrr........ 


MAGICALC TUTORIAL 


s......109 FE TTC 
csss.sse9S F TTC 





RECUEIL PASCALISSIME 


Recueil de programues el d'articlen PASCAL 


Reeueil 1; étiquettes - dump Epson - trl disque - aodules 
assembleur = séquenttet indexé - bufiennudier - leteres 
géantes - fichiers &raphitues, 


Réeuell 3: Imbyiinihe - cepie de fichiern - lag routirive réelles 
- seurce de l'interprète 6602 - Perapectiva 30) - semembieurs 
6502 symbolique. 


Recueil 3: sys1è0e expert - gestlon d'adresse - généreteur de 
menu - COMmpiateur neno PASCAL - lédliéur Elastique - 
utilisation de le souris - inltistion PROLOG - tutoriel Turuo 
PASCAL L/K 


....°129 F FTC 
s....-00 F TTC 


Chaque reeuell 
Les disquetles de chague recueil... 


TOPIQUES PASCAL 


dohn COLIBRI (seplembre 86} 

Descriptions +1 utilisation des bschalgess Aa <1 du 
fonctionement système. Converse de types - mnirées / 
sorties directas = Tsblesse Cyrano = Honmeprate vVisenc - 
Pichlere de longueur ere = Æiihiees Dynamiques - 
implér=eniailions plen mémoire. Coemtieg Bycies. interprète, 


Se! nts et Val … 59 programmes. 6E pages. 
ÉTE +290 F TTC 


--98 F TTC 


VISICALC TUTORIAL 

Christiss $ DUREE 

Mann pen Co — msremre à uitiiner VISICALC. 
Cetert | 4 tata emsentéu: devis, planning 
de Coca “es En “aisire, fuctirotioo/steck, 
custom. D CaSläans, prévisions, stratayie 
duntruprien. Cnten <= murs 375 Peños 

Le Eure ea .——— soso -145 F TTC 
Le tnquetbe de Em. res ..176 F TTC 





Christian B DUBDS 
de fnbriætion. hulletin @s 
investissements, hnudfots. ©CBG 


Le livre aeul....,...,,. 
Le disquette du livre.. 





INITIATION PASCAL 


dohn CE RE 
Stage de  foenatior avec “iêbre spécialiste 
PASCAL. Methode pax À 10e. Avec trovsuix iretiqies 
sur CRU BC, Apple 11. Mae Intoch. Conventions de 
formation « 
TYhus du données mimiples, sirucinres de CONTE. 
procédures cut  fonctiens, dGonnérr struclurss, 
gestion tu fichhers, tels er mrqmite. 
proprasMatinn #trucis cée: 
Frechnlnm auaxfonk: 7 Juniier. 4 Murs, {5 Mal, ter 
Juillet, ñ aout. 25 Srptunbee, + Novembre 
4 jours... ass. 4800 F UT 


GESTION DE FICHIERS PASCAL 


John COLIRRI 

Stage de formation anim4 Par un Vviñmuow des 

Mieniers. Travaux pratiques sur 3H IC, Apple 11, 

use Entnsh. L'onventions de formation. 
afsfe rontrêlée. Bertin ve maziues, ntrautures 
de tri [haeh code. B arbres} et 36quentlel intesé. 
Programmes inpoëtants {compilation séparée, 
sefmentition.  chaînagé).  Fonctionnemeat de 
l'OPeratng $yuten et  =itllitairen PANCAL. 
Communicntions. Cempatibilité e1 tranafetts pntre 
veraonx l'ASCAL. 

Frechainen nesninne: 3 Décembre, 4 Févider, H val, 

8 Juin. 7 Wetphre, 2 Décembre 

4 joug. sos sssssssesemeensese 4900 F HT 


DISQUETTES DE 
PROGRAMMES SOURCE 


Textr: sources. Format àpple 2 

- Le comPilateur P4 de Yurich, Le Inngep» PA#C AL, 
CIS EEPEEREEEERREREREES DECTETESTEN Lau FFE 

- Le compilateur ! intarptéts BASL AL, Ni 
(cambitatenr Ânisrpête en mémelce, <ans lus 
pointeur#el #Bna les Lichiers).. + 145 P TTC 
Le cunipilateut LPABCAL C (PASCAL $ molnr lee 
réelg, plus In œncurrence)....:...... 90 X TTC 
Laterprèôtn de P CONE 6502 (texte do l'interprète 
et dn HI(5 désassemblés} . 10 F TTC 
PASCALISSIME 1... -4a TTC 
PASCALISSINE 2. 49 * TTC 
PASCALISSIME 3. - 4 EF Ti 
PASCAHSSINE +. . WE TTC 

YASCALISSINE 5 Au F TTC 

F 

F 














- PASCALISSIME Gossosess AU F TTC 
Déceuvsez PASCAL Tome 1:. poses T9 E TTL 
Bécouvrez PASC AL, Tome 2:,,,..-,1564 15 F VTC 
Attaeh His (utilitaire de rellachrment de 
peripheriques) nanriins #9 Y TLC 





Vous pouvez scheler ces produiis directement, où îes 
vommanucr HAr <UrrerbonÜence en eevovant volre 
commende el le Chique du moantsnt 3: 


MNEMODYNE 
Yo rue Lemsrtine 
75008 Paris 


Tel 42 85 iu 82 - Jiétro Cadet 
9On=1?%h 13h-i%h, Mercresti jusau'à Ln30 
Færmé l: samrdi 


Ces praduitd Neront visibles sur Je Atari de 
L'INSTITUT MARCAL lors du SICO# BOUTIQUE. du 
SIC@RB DE PRINTEMPS où d'APPLE FXPO, 


Msnvel pna à pes Pour spprenôr= & mifliser VAGICA'&e 
Gontisnl 1Ù tablesux professionnel: Sommet: s: dents, flamme 

isire. factorstontsiock., 
bilans. prévisions, ITU 
d'ratreprise, étude 1e Pix. 193 pages 





+148 F TTC 
-+TS F TTC 


séminsires. inithetion, Ménliesemstitin 

AU NUMÉPO! er smsnmmnmnnnt ns 0) 
Abonnement de 12 2umErm- 
Abonnegent de 12 ur «æ 


(formal Appie UCSD os 15 2° De FR F 


LIBRAIRIE 


Flus de 768 livres ser Æ 

MOWL4, UP. Pris. Se. 

awéricaines (Addisen Bedes, Envie. Meme 
Osborne. Prentise Mails 2e 
Wiey) et française (Dm. 

Massou. Syhex). 

Pascal. Ksyon PROLO æ= 


GUIDEX 


Csrtes de référenre en codeur. L'œmm 5 

portée de la main. 
GUINEX ERREURS PACE = 
exécution, entrée-sutie), =. CN. APS 
PASCAL (pértpniriques, cstins de mms. 
extensions) - QUINEX SEYNTALE CMD — COM 
CODES ASCII (tadle der ext, ee. 
fonctions s)2täme) 

Chaque GUIDSX:.......-..-psutes 9 © 000 


CLUB DES UTILISATEURS PASCAL 


SESSIONS INSTIATIOS AvYac TRATAUX 
PRATIQUES: Tous les. LE Goure. Le messe de 
19h30 à 21h. 11 Nowsmber. procféeres «ti nc. 
SESSIONS PRESENTATIONS- Loue Don 28 Een. Le 
menredi An 14h00 à 21m2%, VTerconc PASCAL. 
utilitsires m1 outils, PASCAI et Des lemgapee LISP, 
FROIOG. MILATE, mms exre Re , veut» 
grapmauer fr. d le: MAL PAi5CAL, 0 0e 
arbres binaires à €16e de laïlle varishle. [S Janv: 
Lihlingrmpnie à l'aide de Fignisrs seen siruciores. Les 
fifutes des tréscntuliorr ont Dubllées dans 
Pascalisaune. 

Cotisation annuelle 





de conmende: 
PRODIIT: PRIX TTC: 





Le Dert en France Métropolitaine ent compris. Pour les 
outres dentinations: gjeutez 20F par protlbit. Précisez 
le format des disquettes commandées, 


VISICALC LEXICUM 
en. ŒEæÉTioue. IHGnition. ublisaëon, 


fonctions el manipulations 
#sux, Contrôle d'imprimante, 
CL. 375 peges 





-145 F TTC 
..15 F TTC 


OUTILS 8088 / IBM PC 


- ASSEMBLEUR SYMBOLIQUE B0$6 
£aitian de texte. assemblage el exéculion en 
mémoire. l'eut générer un fichier .CUM ou du 
texte inline Turbo. 
- DESASSEMBLEUR SYMBOLIQUE 8186 
Fispier do Paramètres des zenrs de Jonnéss. 
Valldntion des labels, Re déltinition dsa laheis. 
Sertie étrun où fichier r8 sasemblahle 440 F TTC 
- DESASSPMBIAGE DE TURBS PASCALE 
Versln 2 où J (nécessite Turbe.uoh, non 
fonurni)ss.ss.. vtssrisrs 280 LV OTTC 





LES LANGAGES EVOLUES 


- PASCAL UCSD bivironnemsent «le dévelgpperent 
Veraion 1V 1HM PC sons MS NOsS: $9%$0 F TTC 
Version 1.2 Spple (utlise L'#K //e) 1300 F TTC 

- Cospisteur MODULA LL - Génére du etuieé netil 
Version Liss (Miec irtosh en Mnj).. 2500 F TITU 

— H LISP 2,0 (le MAC LiSP de uinstan intégral) 
Disquotte Apple // 128X, et inanuel., SŸ0 F TIC 


PROLOG. 1.3 


Système do déveloñnement PROLOG eomiat. Deetiné 
smmentiellement à maîtriser rapidement 18 linyspe et 
mprendre 808 demaines d'utilisation, 

Zthtour de règles pleine Pose hterprétation en 
mémoire cuntrale. Passibüité de tracée hlérarchique 
mite en Œuvre à nwporte quel coment. Explication 
faultats. Mesure de letfcæcité de la solution. 
mm tinple, Version APPLE 2 et IHU PC. 

Le nyntème PROLOG 1,3:....,..,.... 490 F TTC 











PRODUITS PASCAL APPLE 2 


MNEMO DUMP: «ffichage it “ontebu  d'üne 
Cugmette ou d'in fichier, affichage du Contenu de 
OR TrC 
Won ragide du contenu de fichiers 
Me 18 recherche de trxtes.,, US F TTC 
PIP.ÆDITOR: éditeur UCSU amélioré Clshlo des 
mt. Émpression ligne à Ugne, généralisation de 
Flawe et Aldpust =:e) 
MHEMO DE PCOBE désassenbiase d'un fichier 
Cp. Mhémoniques en 10vtes leltre.. 290 F TTC 
Trassiert de fichiers Apple L'CSD -r LUS 3.3 et 
DES 3-3 LCSD . ..Y10 F TTC 
Communientens Apple UCSD/LHM UCSD., 499 F LLC 
Cmmunicslons Apple ECSD/IBN TLRHOQ AYU F TTC 
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Editorial 


La presse nous inonde depuis deux mois d'articles sur les péripéties d'Apple, avec le départ de Jobs 
qui a suivi celui de Wozniak. Les financiers ne semblent pas se fier aux nombreux bruits alarmistes : 
l'action d'Apple flotte aujourd'hui (fin octobre) aux environs de $18, soit 10% de mieux que la 
moyenne du cours ces derniers mois. 


Cela tient aussi probablement au succès obtenu par Apple contre Digital Research au sujet du système 
GEM pour IBM; ce système imitait par trop la présentation et les graphismes déjà devenus classiques 
grâce au Macintosh : Digital Research est obligé de retirer GEM du marché le 15 novembre 85, doit 
verser de l'argent à Apple (“undisclosed amount”) et soumettre ses nouvelles versions à Apple avant de 
les sortir sur le marché. Voilà qui ralentira la sortie effective de l'Atari 520 ST qui, avec l'Amiga de 
Commodore, est un des deux concurrents du Macintosh; en effet, le 520 ST devait lui aussi utiliser le 
système GEM. 


N'oublions pas non plus deux faits importants : tout d'abord, la ganune Apple s'enrichit de jour en 
jour, qu'il s'agisse de la ligne Apple II ou de la ligne Macintosh; et enfin, quel est le constructeur de 
micros qui ne connaît pas de problème ces temps-ci ? Même IBM France a été obligé de revoir ses 
prévisions de vente d'IBM PC pour l'année 1985, en baisse de 100 000 à 60 000 unités ! Nous 
gardons donc notre moral et continuons à vous inonder d'articles et de progranunes, dont nous nous 
efforçons de maintenir le niveau de qualité au plus haut. 


Voici pour ce nwnéro un programme chargé : un décrypteur de Paul Franceschi bien pratique pour 
ne pas rester bloquer dans les jeux d'aventures. Sans arriver aux 11 millions de décimales déjà 
connues, vous calculerez x avec Michel Dominique. 

Côté graphique, deux contributions : Patrick Quettier er Roland Jost, pour rêver en HGR... 
Etudes théoriques : Yvan Koenig s'est penché sur les ROMSs de la ligne Apple et Patrice Neveu a 
désassemblé RWTS. 

Théorique aussi et d'une utilisation immédiate les 36 pistes de B. Toméno. Plus rare, une 
contribution en WPL de Véronique Schmitt. 


Enfin, pour convertir vos fichiers Pascal en des fichiers DOS, “Lirpastext” de Jean-Claude 
Lengrand. 


Nouvelles progressions sur le Macintosh : Jean-Luc Bazanegue a mis au point un accessoire qui 
devient vite indispensable : enfin pouvoir effacer des fichiers depuis une application... Marianne 
Sutz, également une habituée de nos colonnes, vous présente une instruction méconnue du MSBasic 
2.0 : “Library”. Côté pédagogie, nous retrouvons Gérard Michel avec le fonctionnement de fenêtres 
de saisie. 

Bien sûr vous retrouverez nos rubriques habituelles avec Alexandre Duback, Jean-Michel 
Gourévitch, Alexandre Avrane et Olivier Herz. 


Hervé Thiriez 


Photo de couverture : nouvelle imprimante Apple ImageWriter ][ 


Ont collaboré à ce numéro : Alexandre Avrane, Jean-Luc Bazanegue, Michel Dominique, Alexandre Duback, Paul 
Franceschi, Jean-Michel Gourévitch, Olivier Herz, Roland Jost, Yvan Koenig, Jean-Claude Lengrand, Gérard 
Michel, Patrice Neveu, Patrick Quettier, Véronique Schmitt, Marianne Sutz, B. Toméno. 

Directeur de la publication, rédacteur en chef : Hervé Thiriez. 

Rédacteurs : Alexandre Avrane, Olivier Herz. 

Siège social : Editions MEV - 49, rue Lamartine - 78000 Versailles. Tél. : (1) 39.51.24.43. 

Publicité : Editions MEV. 


Diffusion : N.M.P-P. 
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Conversion Pasça} S 


Jean-Claude Lengrand 


ransformer des fichiers Pascal en des 

fichiers DOS, tel est l'objet du 

programme présenté ici : Lirpastext. Les 

fichiers PASCAL en question peuvent 
être des FILE OF CHAR (TEXT au sens du 
langage PASCAL) de deux types différents (selon 
qu'ils ont ou non été créés par l'éditeur, 
c'est-à-dire qu'ils ont ou non le suffixe .TEXT) ou 
des FILE OF STRING. Les premiers sont 
convertis en fichiers DOS 3.3 à accès séquentiel, 
les seconds en fichiers DOS 3.3 à accès direct. Au 
passage, certaines conversions de caractères 
peuvent être effectuées (remplacement des virgules 
par des blancs, par exemple). Pour utiliser 
Lirpastext, il faut connaître le numéro de bloc de 
début et la longueur du fichier sur la disquette 
PASCAL, ce que l'on voit immédiatement sur le 
catalogue en Pascal. Les messages du programme 
Basic en constituent le mode d'emploi. . 


Programme LIRPASTEXT 





10 REM LIRPASTEXT 

20 REM RECOPIE UN "FILE OF CHAR" PASCAL 

30 REM OU UN FILE OF STRING PASCAL 

40 REM SUR UN FICHIER SEQUENTIEL BASIC ( 
FILE OF CHAR) 

50 REM OU À ACCES DIRECT BASIC (FILE OF 
STRING) 

60 REM LENGRAND, 

70 REM 

80 HIMEM: 38090 

90 AD = 38091 


LE 21/12/82 





100 DO$ = CHR$ (4):BI$S = CHRS$S (7) :DLS 
= CHR$ (16) 

110: DIM Sf15),;S14(2) 

120 FOR I = 0 TO 15: READ S(I): NEXT I 

130 REM LISTE DES SECTEURS BASIC CORRES 
PONDANT 

140 REM AUX SECTEURS PASCAL 0,1,2,... 

150 DATA O0,14,13,12,11,10,9,8,7,6,5,4,3 
HS. 

160 BU ='2D'fi21: RM 

170 PG = AD # 275: ZM 
AMME DE LECTURE 

180 ER = AD + 19: = 25.0ÿ COUDE LES 

190 TR = AD + 4: 2=M AD. OO NIMERO & 
ISTE 


200 


210 


SC = AD + 5: REM AD. DU NUMERO DE S 
ECTEUR 

OD = AD + 16: REM AD. DU DERNIER DR 
IVE UTILISE 

ND = AD + 2: REM AD.DU FUTUR DRIVE 

S = 0: DIM S1#(10),S2%(10): REM POU 
R LA SUBSTITUTION DE CARACTERES 

TEXT : HOME : PRINT "TRANSFERT D'UN 

FICHIER DE CHARACTERES" 


PRINT “PASCAL SUR UNE DISQUETTE BASI 
EX’: PRINT 

PRINT "METTEZ LA DISQUETTE CONTENANT 
USERNWTS" 

PRINT "DANS LE DRIVE 1 ET FAITES <RE 
TURN>"" 

GET W$: PRINT : PRINT 

PRINT DO$; "BLOAD USERWTS.CODE, A"; AD; 
Le Di" 

PRINT "METTEZ LA DISQUETTE PASCAL À 
LIRE" 

PRINT "DANS LE DRIVE 2 ET FAITES <RE 
TURN >" 


GET W$: PRINT : PRINT 


PRINT "METTEZ LA DISQUETTE BASIC DES 
TINATAIRE" 

PRINT "DANS LE DRIVE 1 ET FAITES <RE 
TURN>" 

GET W$: PRINT : PRINT 

BTAB 1l: VTAB 4: CALL - 958 

INPUT "PREMIER BLOC À LIRE=";PB 

IF PB < 0 OR PB > 279 THEN PRINT BI 
S: GOTO 370 

INPUT "NOMBRE DE BLOCS À LIRE=";NB 


IF NB < O0 OR NB > 279 THEN PRINT BI 
$: GOTO 390 
INPUT "EST-CE UN FILE OF STRING (O/N 


} HAASS 

IF LEFTS$ (5$,1) = "N" THEN S$ = "N" 
: PRINT "CE DOIT ETRE UN FILE OF CHA 
R": GOTO 480 


IF LEETS (S$,1) < > "O" THEN BRIN 
T BIS: GOTO 410 

S$ = "O":TS = "N'INS = 1 

INPUT "LONGUEUR DECLAREE POUR LES CH 
AINES ? ";LM 

GOTO 570: REM CE K= PEUT PAS ETRE U 


EKPER PESTE EN RSS ER .TEXT (O/N) 
EF AEPES (1,12 = "0" THEN T$ = "O" 
IF ZEFTS CSD “N” THEN TS = "N" 
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210 
520 


530 


540 


550 


560 


570 


580 


590 


600 


610 


620 
630 


640 
650 


660 
670 
680 
690 


700 
710 


720 


730 


735 


740 
750 


760 


770 
780 


790 


800 
810 


820 
830 
840 


: GOTO 520 

PRINT BIS: GOTO 480 

PRINT : PRINT "VOULEZ-VOUS 
Je 

PRINT "1 RECOPIER TOUS LES CARACTERE 
S MEME NULS" 

PRINT "2 VOUS ARRETER AU PREMIER CAR 
ACTERE NUL" 

PRINT : PRINT "NB:CARACTERE NUL (S$00 
)= FIN DE FICHIER" 

INPUT "";N3: IF N$ < > l AND N3% < 

> 2 THEN PRINT BIS;:: GOTO 560 

HOME : PRINT "A L'OCCASION DU TRANSF 
ERT, VOUS" 

PRINT "POUVEZ REMPLACER CERTAINS CAR 
ACTERES" 

PRINT "PAR D'AUTRES (MAXI:10 SUBSTIT 
UTIONS) " 


(1 OU 2 


: PRINT "NBRE DE SUBSTITUTIONS DEMAN 
DEES ?" 

PRINT "(PAR DEFAUT, LES ";S;" SUBSTI 
TUTIONS" 


PRINT "PRECEDENTES) " 

PRINT : INPUT "INDIQUEZ LE NOMBRE OU 
<RETURN>";WS$ 

IF W$ = "” GOTO 750 

W = VAL (W$): IF W< O0 OR W > 10 TH 

EN PRINT BIS: GOTO 630 

S = W: IF S = 0 GOTO 810 

FOR I = 1 TOS 

HOME : PRINT "POUR LE CARACTERE ";lI; 
INPUT “CODE ASCII DECIMAL INITIAL="; 

S1%(1I) 

PRINT "CODE ASCII DECIMAL FINAL :" 
INPUT "(OU -1 POUR ELIMINER LE CARAC 
TERE)";S2#%(1) 

IF S1%(I) < O0 OR S1#(I) > 127 THEN 

PRINT BI$: GOTO 680 

IF S2%(I) < - 1 OR S2%(I) > 127 THE 

N PRINT BIS$: GOTO 680 


IF (S28(1) = - l) AND (S$ = "O") TH 
EN PRINT BIS: GOTO 680 

NEXT I 

HOME : PRINT "RAPPEL DES SUBSTITUTIO 
NS:": PRINT 

IF S = 0 THEN PRINT "AUCUNE SUBSTIT 
UTION": PRINT : GOTO 810 


FOR I = 1 TOS 


PRINT "CHRS(";S1%(I);")="; CHRS (51% 
(I)}) ; 

PRINT " -> CHR$S(";S2#(I);")="; CHRS 

(S2#(I)) 

NEXT 1: PRINT 

PRINT "NOM DU FICHIER BASIC À CREER: 
INPUT " "PIS 

IF S$ = "N" GOTO 860 

PRINT "CE FICHIER DEVRA ETRE EXPLOIT 


850 


860 


870 


880 


890 


900 


910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 


1140 
1150 


1160 
1170 


1180 


E AVEC UN" 

PRINT "RECORD LENGTH=";LM + 2;" (ACC 
ES DIRECT)" 

PRINT : PRINT "<ESC> POUR CORRIGER U 
NE ERREUR" 

PRINT “<RETURN> POUR LANCER LA COPIE 


LL£ 


GET W$: IF W$ < > CHR$ (27) AND W$ 
< > CHR$ (13) THEN PRINT BIS: GO 
TO 880 


IF W$ = CHR$ (27) THEN HOME : GOTO 
360 

IF T$ = "O" THEN PB = PB + 2:NB = NB 
— 2: REM SUPPRIME LES 2 PREMIERS B 


LOCS 
POKE AD + 12,1: REM FONCTION LECTUR 
E 


LA = 13: REM ASCII DU DERNIER CARAC 
TERE LU 
NS = 0: REM COMPTAGE DES CARACTERES 


POUR LES FILE OF STRING 

HOME : PRINT "VOUS ALLEZ VOIR DEFILE 
R CE QUI" 

PRINT "S'ENREGISTRERA SUR VOTRE DISQ 
UETTE BASIC": PRINT 


PRINT : PRINT DOS$S;"MON O" 

PRINT : PRINT DQS$S;"OPEN ":FI$;",Dl" 

PRINT DOS$S;"WRITE ":FIS 

FOR I = 1 TO NB 

BL = PB + I - 1: REM NUMERO DE BL 
OC 

PI = INT (BL / 8): REM NUMERO DE 
PISTE 

S1(1) = 2 * (BL - 8 * PI):51(2) = 5 
1(1) + 1: REM NUMERO DES SECTEURS 
PASCAL 


POKE TR,PI: REM AFFICHE LA PISTE 
FOR J = 1 TO 2: REM POUR LES 2 PAR 
TIES DU BLOC 

ST = S(S1(J)) 

POKE SC,ST: REM AFFICHE LE SECTEUR 
POKE OD,1: REM AFFICHE LE DERNIER 
DRIVE 

POKE ND,2: REM AFFICHE LE DRIVE À 
UTILISER 

CALL PG: REM APPELLE USERNTS 

IF PEEK (ER) = 0 GOTO 1140 

PRINT DOS$S;"CLOSE ";FIS 

PRINT "ERREUR DE LECTURE NUMERO "; 
PEEK (ER) 

GOTO 1410 

FOR K = 0 TO 255 

IF ( PEEK (BU +K) < > 16) OR (TS 
= "N") OR (LA < > 13) OR (S$ = "Oo" 
) GOTO 1190 


NI = PEEK (BU + K + l) - 32 

IF NI > O0 THEN FOR II = 1 TO NI: P 
RINT ‘© "ar NEXT IT 

K=K +2 
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a 7 


1190 LA = PEEK (BU + K):LB = LA 

1200 IF LA = O0 AND N$ = 2 THEN K = 255:J 
= 2:I = NB: GOTO 1340 

1210 IF S = 0 OR (5$ = “O" AND (NS = 0 O 
R NS > LS)}j GOTO 1260 


1220 FOR L = 1 TO S 

1230 IF LA. < > S1$(L) GOTO 1250 

1240 LB = S2%(L)}:L =S 

1250 NEXT L 

1260 IF S$ = "O“" GOTO 1290 

1270 IF LB > - 1 THEN PRINT CHRS (LB) 

1280 GOTO 1340 

1290 IF NS = 0 THEN LS = LB: GOTO 1310: 
REM LONGUEUR EFFECTIVE DE LA CHAIN 
E 

1300 IF NS < = LS THEN PRINT CHRS$S (LB 
de 

1310 IF NS = LS THEN PRINT : GOTO 1320: 
REM ENVOI D'UN RETURN 

1315 IF NS > LS THEN PRINT CHRS$S (0); 

1320 NS = NS + 1 

1330 IF NS > LM + 1 THEN NS = 0: REM D 
EBUT D'UNE NOUVELLE CHAINE 


Source USERWTS.ASS 
(Assembleur LISA 1.5) 


1 ORG 38091 

2 OBJ  $1000 

3  ;MODE D'EMPLOI: 

4  ; FAIRE LES MODIFICATIONS NECESSAIRES À 

LA TABLE IOB: 

52% NUM. DE PISTE ET DE SECTEUR 
CES CODE DE L'OPERATION À EFFECTUER 
7 ET LANCER L'EXECUTION À L'ADRESSE PGM. 
(: PR 

9 IOB HEX O1 ; IMPOSE 

10  IBSLOT HEX 60 :16*SL0T 6 
Ii IBDRYN HEX O1 ‘DRIVE 1 

12 IBVOL HEX 00 ; NUMERO DE VOLUME 
13  IBTRK HEX 00 NUMERO DE PISTE 
14 JBSECT HEX 00 ; NUMERO DE SECTEUR 


15  IBDCTP ADR IOB+17 ;ADRESSE DE LA DCT 
16  IBBUFF ADR IOB+21 


17 ADR  $0000 # INUTILISE 

18 IBCMD HEX 00 ; CODE COMMANDE 

19 IBSTAT HEX 00 CODE ERREUR 

20  IBSMOD HEX 00 ; NUMERO DE LA 
DISQUETTE EFFECTIVE 

21 IOBPSN BEX 60 DERNIER SLOT UTILISE 

22 IOBPDN HEX 01 ‘ET DERNIER DRIVE 

23 DEVTPC HEX OCOIEFD ;4 BYTES IMPOSES 

24  BUFFER HEX 00 *1ER OCTET DU BUFFER 

25 DFS 255 LES 255 SUIVANTS 


26  HADR HEY  10OB 
27  LADR BYT 1IOB 
28 PGM LDA  HADR 
29 LDY  LADR 





1340 NEXT K 

1350 NEXT J 

1360 NEXT I 

1370 PRINT 

1380 PRINT DO$;"CLOSE ";FI$ 

1390 PRINT DO$; "NOMON O0” 

1400 PRINT : PRINT : PRINT BIS$;:BI$;BI$;" 
C'EST FINI..." 

1410 PRINT : PRINT "<RETURN> POUR COPIER 
UN AUTRE FICHIER" 

1420 PRINT "OU METTEZ LA DISQUETTE UTILI 
TAIRE" 

1430 PRINT “ DANS LE DRIVE l ET FAITES 
<ESC>" 

1440 PRINT " POUR REVENIR AU MENU GENE 
RAL" 

1450 PRINT “OU UNE AUTRE TOUCHE POUR ARR 
ETER" 

1460 GET W$: PRINT 

1470 IF W$ = CHR$ (13) THEN HOME : GOT 
O 300 

1480 IF W$ = CHR$ (27) THEN PRINT DO$; 
"RUN MENU, D1" 

1490 END 

30 JSR $03D9  ;APPELLE RWTS 

31 IDA IBSLOT ; MAJ DERNIER SLOT 

32 STA IOBPSN ET DERNIER DRIVE 

33 LDA IBDRW 

34 STA IOBPDN 

35 BCS  NOTOK 

36 IDA #10 :MET O0 SI OK 

37 STA  IBSTAT 

38 NOTOK RTS 

39 ERK 

40 PAU 

41 DCM "BSAVE USERWTS.CODE, 

A$1000, L$135" 
92 END 





Récapitulation USERWTS.CODE 


1000- 
1010- 
1020- 
1030- 
1040- 
1050- 
1060- 
1070- 
1080- 
1090- 
10A0- 
10B0- 
10C0- 
10D0- 
10E0- 
10F0- 
1100- 
1110 
1120- 
1230- 


01 60 01 00 00 00 DC 94 EO 94 00 00 00 00 00 60 
01 00 01 EF D8 00 00 00 00 00 00 00 00 00 00 00 
08 10 00 00 00 00 00 00 00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 00 00 08 00 00 00 00 00 
00 00 00 00 00 0Z 00 00 00 00 08 00 00 10 00 i0 
00 00 00 00 00 00 88 80 00 00 00 80 00 00 00 80 
00 00 20 00 10 00 00 00 00 08 00 00 00 00 80 8ä 
00 00 00 00 00 00 00 02 00 00 00 00 00 00 00 00 
EF EF. D7 FEVER FF (DF EF4EF EF EF FFQFF FF0/FFSRS 
EF EF EF FF FF DF EF FF FF EF DF FF EF FF FER 
EF DF'EF FF EF EF FF° FF F7 FF EH FF°FF FF,FFAle 
EF FF EF (SF BB EF FF FENEF EF FE EF FF EEMEHRIRS 
EF FF FF FF FF FF FF F7 FF FF FF FF FF FF'FFER 
DF FF FFBF FF FF EF FE FF PF0FF FFAEF FF (PERS 
FF FF FF FF EF FF DF FF 7F FF FF FF FF FF EF 
DPF FF FF EF SF FF°OFF FF FF FF FF FF (FF FF EE 
00 00 00 00 00 00 0 00 00 00 00 00 00 00 00 0& 
00 00 00 00 00 94 CB AD ECO 95 AC El 95 20 D9 £= 
AD CC 94 8D DA 94 AD CD 94 8D DB 94 B0 05 A9 05 
8D D8 94 60 00 
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Un éditeur HGR : 
Roland Jost 


es traitements de texte 
classiques ne sont pas 
prévus pour l'écriture 
de textes scientifiques; 
il est à la rigueur possible d'écrire 
des formules mathématiques avec 
indices et exposants. Par contre, 
on ne peut dessiner facilement 
des formules chimiques ou des 
schémas électroniques, ou encore 
rajouter des commentaires sur des 
pages graphiques . 
C'est pourquoi nous avons écrit 
EDIGRAPH. Nous aurions pu 
utiliser HRCG de TOOLKIT ou 
HAIFA (Pom's 5) ou HGRECR 
(Pom's 15), mais nous avons 
préféré “écrire un programme 
entièrement en Basic pour mieux 
faire comprendre la gestion du 
graphisme Apple et permettre des 
modifications aisées par l'utilisa- 
teur final. 


EDIGRAPH est loin d'avoir les 
possibilités classiques d'un 
traitement de texte, mais il permet 
par contre : 


.« l'écriture de textes et de formes 
en page graphique; 

+ le passage aisé d'un type de 
caractères à un autre, 

+ l'affichage de caractères en 

mode inverse, en double 

hauteur ou soulignés,; 

caractères en indice obtenus 

par CTRL-I ou bouton de 

manette O (Apple ][), ou 

pomme ouverte ou TAB 

(Apple //e),; 

caractères en exposant obtenus 

par CTRL-X ou bouton de 

manette 1 (Apple J[), ou 

pomme fermée (Apple //e); 

. sauvegarde et rappel d'une 

page graphique; 

manipulation de zones écran; 

EDIGRAPH permet : 

1) de déplacer ou recopier 
une zone écran; 

2) de mettre en mode inverse 
une partie de l'écran; 

3) d'effacer une zone-écran; 

4) de stocker une zone-écran 
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dans un tampon d'où elle 
pourra être rappelée à 
volonté. Le tampon pourra 
être sauvé sur disquette. 

+ adaptation aisée aux besoins 
propres d'un utilisateur , car 
étant écrit en Basic, les 
modifications logicielles sont 
simpies. On peut aussi 
modifier les polices de 
caractères ou rajouter de 
nouvelles formes. 





du Para-methoxy benzhydrol 


Edigraph 


964 cases (24 lignes * 40 
colonnes) de 7 * 8 points 
élémentaires. On pourra inscrire 
un caractère dans chaque case. 


Codage d'un caractère 


Le caractère est dessiné dans une 
matrice 8 * 8 , puis le codage est 
fait ligne par ligne. Par exemple, 
la lettre B sera codée comme suit 
sur huit octets. 


Cméthode de GRIGNARD ) 


©)-sr + Mg 


éther 


a 


© 


OCH3 
cHa0- (D) -cHo + MHaBr —— 


cho 





Affichage 
de caractères 


Gestion d'une 

page graphique 

La page graphique de l'Apple est 
divisée en 192 lignes et 280 
colonnes. Les colonnes sont 
regroupées par 7, chaque point 
correspondant à un des 7 bits 
d'un octet, dont le 8ème bit 
con%ent le code couleur. L'écran 
HGR est divisé en 3 zones de 8 
groupes de 8 lignes. Par analogie 
avec la page TEXTE, la page 
graphique peut donc être 
considérée comme comportant 


binaire hex 
oct.li THÉ 1 
oct.2 COÉOOÉG 22 
oct. doté 22 
oct.s COHÉÉÉG 1 
oct.s dot 22 
oct.6 CO HÉG 22 
oct.7 GO 1 
oct.8 GG G 00 


vous remarquerez que la lettre est 
inversée. 


Ecriture d'un caractère 
en page HGR 


Pour écrire un caractère, il faut 
afficher le contenu des 8 octets 











qui servent à le définir les uns 
sous les autres, à l'endroit voulu. 
Il faut donc poker dans les 
bonnes adresses de la page 
mémoire. 

L'adresse du sommet gauche 
d'une case est obtenue par la 
formule : 


BA = 32 P 12 * 2ÿ - 
964% INT ((2V-1)/6) + 
ZH avec: 


Z2 = 8127 pour la page 1, 16255 
pour la page 2 

ZV = position verticale (0 <= ZV 
<= 23) 

ZH = position horizontale (0 <= 
ZH <= 39) 

L'écriture en mémoire HGR des 


huit octets du caractère se fait par 
la boucle : 


FOR J = 0 TO 7: POKE 
BA + 1024 % J, PEER 
(2B + M “ 8 +4J) 


NEXT 


ZB + ZC * 8 correspond à la po- 
sition du caractère dans la table 
chargée à l'adresse ZB. 


Pour un affichage en mode 
inverse, on effectue au préalable 
un AND sur chaque octet:. Pour 
celà, faire 255 - PEEK (ZB+ZC * 
8+J). 

Pour un affichage en double 
hauteur, on affiche deux fois 
verkicalement le même octet. 


Les jeux de caractères 


Les caractères utilisés par 
EDIGRAPH sont semblables à 
ceux du Toolkit ou de HAIFA. 
Cinq polices de caractères sont 
stockées dans le fichier binaire 
SET chargé à l'adresse $3000 
(12288) : 


$3000-$32FF : caractères fran- 
çais (avec les minuscules accen- 
tuées) 

$3300-$35FF : caractères grecs 
et symboles mathématiques 
(racine, intégrale,...) et 
chimiques (liaisons simple, 
double, triple, flèches de 
réaction, etc.) 

$3600-$38FF : caractères réduits 


en matrice 3*5 pour les indices et 
exposants 


$3900-$3BFF caractères larges 
(avec minuscules accentuées) 
$3C00-$3EFF caractères itali- 
ques (avec voyelles accentuées) 
Une police de caractères est 
activée par la frappe de ESC, 
suivi du numéro (1-5) de la 
police. 

Si l'on veut taper un seul 
caractère des polices 2 ou 3 on 
pourra utiliser : 

CTRL G : caractère grec ou 
graphique 

CTRL I ou bouton manette O ou 
G : caractère en indice 


CTRL X ou bouton manette 1 ou 
& : caractère en exposant. 


AE n re 


HI JÉCNNOPORS 
opqrstuvuxuz 


Police n°2 
Hs ZE 


É 
DEC RLERSS 
CTÉPOTUVURET 


REXFENNSETNES 
HIJELMNDPHRSTU 
nr £StUUWXNE 


Police n°5 


EME TS OS CRT IE 
HI JR PINDPRRET SVUNVYZ 





DANSE UVEKCZzEDE+E 


La table de formes 


Pour afficher des symboles plus 
complexes, EDIGRAPH utilise 
aussi une table de formes 
classique. Elle est chargée à 
l'adresse $6000 et comporte 
provisoirement 2 formes 
chimiques (benzène et 
cyclohexane) et 6 formes 
d'électronique (résistance, inter- 
rupteur, générateur, etc.). 

Une forme donnée est appelée par 
ESC suivi de F (ou G) et du 
numéro de la forme. F trace la 
forme horizontalement (ROT = 
0), ne trace verticalement (ROT 

16). 


208787: 
Cr 2 


Le traitement de 
blocs 


EDIGRAPH pennet le traitement 
de zones rectangulaires de l'écran 
graphique . Ces ‘blocs’ pourront 
être déplacés, dupliqués, effacés, 
inversés, sauvés sur disquette et 
réincorporés à d'autres pages 
graphiques. 

Déplacer le curseur au coin 
supérieur gauche de la zone à 
traiter et taper ESC B. Le curseur 
se réduit à un point. 


a) saisie du bloc dans le 
tampon : Déplacer le curseur au 


:5<=}Ta8ABCDEFG 
_“abcdefshigklimn 


2 


D Like  4BTAEST 
3 SAaSYVéE se LÉRAIAV 


= <=>73ABCDEFG 
cdefshiJklmn 


=> TIASCHEFSE 
mA ÉSRÉRA | 


coin inférieur droit du bloc. Taper 
ESC W pour recopier le contenu 
de la zone ainsi délimitée dans le 
tampon. Donner un nom de 
fichier pour sauver le bloc sur 
disquette ( le fichier s'appelera 
BLOC.nom), sinon taper simple: 
ment 1. 


b) mettre une zone écran en 
inverse : le curseur ayant été 
amené au coin inférieur droit . 
taper ESC N. 


c) effacer une zone : comme 


précédemment, mais taper ESC 
ce 
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d) déplacer un bloc : Taper ESC 
B après positionnement du 
curseur au coin inférieur droit. 
Déplacer le curseur jusqu'à 1a 
nouvelle position du bloc et taper 
ESC D. La zone initiale sera 
effacée. 


e) copier un bloc : comme ci- 
dessus, mais taper ESC C à la 
nouvelle position. L'ancienne 
zone ne sera pas effacée. Une 
autre possibilité de duplication est 
de rappeler la zone tampon . 


f) rappel d'un bloc : Ce 
traitement est le seul à ne pas être 
activé par ESC B. Amener le 
curseur à la position souhaitée 
(correspondant au coin supérieur 
gauche du bloc) et taper ESC KR. 
La frappe de … copiera la zone 
tampon, sinon donner le nom du 
fichier à rappeler de la disquette. 


Remarques : 

La procédure de traitement des 
blocs est lente, donc patience. 
Aucun test n'est effectué pour 
savoir si le bloc recopié pourra se 
loger à sa nouvelle place. 





Les commandes 


EDIGRAPH utilise trois niveaux 
d'analyse des commandes : 


1: commandes par la touche 
CTRL , principalement pour le 
déplacement du curseur , et pour 
obtenir les caractères non 
disponibles au clavier du }[+ 


2:commandes activées par 
ESC : changement de police, 
changement du mode d'affichage 
(nonnal,double hauteur,inverse). 


3 : enfm les touches F et G tapées 
après ESC, perimettent d'afficher 
la fonne dont le numéro suit. 

Les touches G et 6 pennettent 
respectivement l'écriture en indice 
ou en exposant. 


Fonctions activées par la touche ESC 


ESC 1 caractères français 

ESC2 caractères grecs et graphiques 

ESC 3 indices ou exposants 

ESC 4 caractères épais 

ESC 5 caractères italiques 

ESCB activation du mode BLOC 

ESCC copie d'un bloc à la nouvelle position du curseur 

ESC D deplacement d'un bloc à la nouvelle position du curseur 
ESCE effacement d'un bloc-écran 

ESCN négatif d'un bloc 

ESCF tracé d'une fonne avec ROT=0. À faire suivre du numéro de 


la forme 

ESC G tracé d'une forme avec ROT=16. Faire suivre du numéro de 
la forme 

ESC H vide l'écran HGR et ramène le curseur au point supérieur 
gauche 


ESCI affiche les instructions. 

ESC L chargement d'une image graphique en page 2. 
ESC P  hardcopy 

ESCQ sortie du programme. 

ESC S sauvegarde de la page graphique 

ESCV bascule vidéo normale/inverse 

ESCY bascule hauteur normale/double. 

ESC - bascule soulignement 

ESC / affiche le symbole ‘intégrale 


Fonctions activées par la touche contrôle 


CTRL D affiche le catalogue de la disquette. 

CTRL G le prochain caractère frappé sera pris dans la police 2. 

CTRLH déplacement du curseur vers la gauche. Avantageusement 
remplacé par 

CTRLI le prochain caractère sera placé en indice (police 3A) 

CTRL]J déplacement du curseur vers le bas . (utiliser U sur le //e) 

CTRLK déplacement du curseur vers le haut. (utiliser f sur le //e) 

CTRLS bascule majuscule/minuscule (utile seulement sur le ][+) 

CTRL X le prochain caractère sera en exposant (police 3B) 

CTRL * accent circonflexe. Après la frappe de CTRL , le curseur 
recule d'une position. Puis taper la voyelle désirée 


Des caractères non disponibles sur le clavier du J+(éè[]ùç°) 
peuvent être obtenus à l'aide de Shift M, Cirl Shift M, Ctri N, CtrlO, 
Ctrl Z. Faites l'essai en mode minuscule et majuscule. 


Structure du programme 


L 200-390 sous-programmes d'écriture de caractères en mode 
graphique, placés en début du programme pour 
accélérer l'exécution 


L 400-530 sous-programmes de traitement des blocs 
L 600-790 gestion de l'affichage 
L 900-990 le mode d'écriture inverse, normal ou double hauteur 


est affichée dans le coin inférieur droit de l'écran 
L 1000-1900 positionnement et affichage des formes 
L 3000-3100 passage en mode HGR?2 sans effacement 
L 4000-4100 remise à zéro de certaines variables 
L 5000-5200 sauvegarde de la page graphique 2 sur disquette 
L 6000-6200 rappel d'une image graphique en page 2 
L 7000-7080 sauvegarde d'un bloc 
L 8000-8070 lecture d'un bloc 
L 9000-9100 traitement des erreurs DOS 
L 10000-11000 analyse des touches frappées. Touches CTRL 





Pormn's n° 21 


11 


12 


L 12000-14000 commandes activées par la touche ESC 
L 15000-18000 appel du programme de hardcopy (à installer par 


l'utilisateur) 


L 18000-19000 saisie du numéro de forme 

L 20000-20210 affichage des commandes 

L 24000-26030 initalisation . Chargement des tables (caractères et 
formes). Pour une hardcopy, rajouter ici le chargement 
du sous-programme nécessaire 


ligne 30000 
GOTO 30000 


Occupation de la mémoire 
$800 EDIGRAPH 
$2FFF HIMEM 
$3000 police n°1 
$3300 police n°2 
$3600 police n°3 
$3900 police n°4 
$3C00 police n°5 
$4000 page graphique 
$6000 table de formes 
$7000 tampon 
$9000 fin du tampon 


EDIGRAPH a intentionnellement 
été écrit en BASIC sans utiliser 
de sous-programmes assembleur, 
pour permettre à chacun de 





Programme Edigraph 


redémarrage à chaud, sans perte des variables, par un 


l'adapter à ses propres besoins. Il 
souffre donc de la lenteur de ce 
langage, particulièrement pour 
l'écriture en double hauteur et le 
traitement des blocs. 

Pour obtenir malgré tout une 
vitesse d'exécution acceptable, 
tous les programmes de tracé ont 
été placés en tête du programme 
et optimisés au maximum. Le 
BASIC est suffisamment rapide 
pour permettre une vitesse 
moyenne de frappe des caractères 
en taille normale. En mode 
double hauteur, l'affichage est 
plus lent et pourrait bénéficier 
d'un traitement en assembleur. La 


260 ZV = ZV - 1:BA = 
NK TO 7: POKE BA + Z1(J),2Z1% - 


lenteur d'exécution qui n'est pas 
un handicap lors de la phase 
d'apprentissage pourra etre 
supprimée si vous disposez d'un 
compilateur. 

Remarques 

Sur un Apple ][+ les manettes 
doivent être connectées. Sinon, 
supprimer la ligne 10040. 
EDIGRAPH a été développé sur 
un J]{+ et ses commandes 
adaptées à son clavier. Il utilise 
les possibilités supplémentaires 
du clavier du //e, mais l'utilisateur 
préfèrera peut-être modifier 
l'attribution de cettaines touches. 
Pour utiliser EDIGRAPH, faire 
RUN EDIGRAPH. Les fichiers 
SET et FORMESA sont chargés 
par le programme. 

En cas de ‘plantage’, taper CTRL 
RESET, puis GOTO 30000. 
L'image HGR en mémoire n'est 
pas altérée. Le curseur est 
repositionné dans le coin 
supérieur gauche de l'écran. 


FN B1(ZH): FOR J = 
PEE 


40 

100 
110 
120 
130 
140 
150 
160 
170 


200 
210 


220 


230 


240 


250 


HIMEM: 12287 


K (ZX + 
+ 1:BA = 


INT (J / 2)}: NEXT :Z2V = ZV 
FN B1(ZH): FOR J = 8 TON 


REM ARARAARAARAAAAAAAAAAAAAAARHA AA Ÿ + 8: POKE BA £ Z1 + (J æ 8) Z1% 1 
REM  * À PEEK (ZX + INT (J / 2)}: NEXT : RE 
REM À EDIGRAPH — V.2 # TURN : REM INVERSE ET DOUBLE HAUTEU 
REM * À R 
REM * R.JOST - 1985 Fe 270 BA = FN B1(ZH) 
REM  * î 280 CZ = PEEK (BA + ZZ) 
REM ARRAAAAALAAZX XX ZA A HE HE EE 2 EE Et 290 ZA = 12799 Fe 28 # (FL < > 0) : POKE 
GOSUB 24000: GOSUB 20010: GOSUE 3020 BA + ZZ, PEEK (ZA): RETURN : REM AFF 
:ZE = 49: GOSUB 910: GOTO 10000: END ICHAGE DU CURSEUR 
; 300 POKE BA + ZZ,CZ: RETURN : REM EFFAC 
REM SOUS-PROGRAMMES DE TRACE DE LET EMENT DU CURSEUR 
TRES 400 REM TRAITEMENT DES BLOCS 
: 410 DX = NX - X:DY = NY - Y + 1 
FOR J = NK TO NJ: POKE BA + Z1(J), P 420 GOSUB 300 
EEK (ZX + J): NEXT : RETURN : REM 430 ZW = ZV 
MODE NORMAL 440 FOR K = 0 TO DY::ZV = Y + K:BA = FN 
FOR J = NK TO NJ: POKE BA + Z1(J),21 B1(X):ZV = ZW + K:BB = FN Bl(ZH) 
$ - PEEK (ZX + J): NEXT : RETURN : 450 FOR I = 0 TO DX:BC = BA + I:BD = BB 
REM MODE INVERSE +I 
2V = ZV - 1:BA — FN B1(ZH): FOR J = 460 FOR J = 0 TO 7:CH = PEEK (BC + Z1(® 
NK TO 7: POKE BA + Z1(J), PEEK (ZX )) 
+ INT (J / 2)): NEXT :2V = ZV + l:B 470 IF FL = 7? THEN TA = TA + l: POKENTER 
A = FNB1l(ZH): FOR J = 8 TO NJ + 8: CH: GOTO 520 
POKE BA + Z1 * (J - 8), PEEK (2X + 475 IF ZC = 67 THEN POKE BD + Z1(J),CE: 
INT (J / 2}}: NEXT : RETURN : REM GOTO 520 
AFFICHAGE DOUBLE HAUTEUR 480 IF ZC = 68 THEN POKE BC + Z1(J),0: 
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POKE BD + Z1(J),CH: GOTO 520 

490 IF FL = 6 THEN TA = TA + 1: POKE BD 
+ Z1(J), PEEK (TA): GOTO 520 

500 IF ZC = 78 THEN POKE BC + Z1(J),21% 
- CH: GOTO 520 

510 IF ZC = 69 THEN POKE BC + Z1(J),0: 
GOTO 520 

520 NEXT : POKE - 16336, PEEK ( - 16336 
): NEXT : NEXT 

530 ZV = ZV + 1:FL = 0: GOSUB 270:ZV = 2 

W: RETURN 


610 REM SOUS-PROGRAMME D'AFFICHAGE 


630 Z = PEEK ( - 16336) - PEEK ( - 163 
36) 

640 BA — FN B1l(ZH) 

645 IF ZC = 30 THEN ZC = 62: GOTO 660 

650 ZC = ZC - 32 + 32 * ((2F = 1) AND (Z 
C > 64 AND ZC < 97)) 

660 IF F1 -— 1 THEN WB = ZB:2B 13824 

670 IF F1 = 2 THEN WB = 2B:2B 13826 

680 IF F1 = 3 THEN NB = ZB:ZB = 13056 

690 ZX = Z2B + 8 * ZC 

700 IF ZM = 1 AND ZL = 1 THEN GOSUB 260 


: GOTO 740 

710 IF ZM = 1 THEN GOSUB 290: GOSUB 240 
: GOTO 740 

720 IF ZL < > 0 THEN GOSUB 250: GOTO 7 
40 


730 GOSUB 230 
740 NK = 2 * (F1 = 10): IF F1 = 10 THEN 
GOSUB 300:ZH = 2H - 1: GOSUB 290:F1 

= 0 

745 BA = BA + 1 

750 ON ZH < 40 GOSUB 290 

760 ZH = ZH + l: IF ZH > 40 THEN ZH = 1: 
ZV = ZV + 1 + (ZL = 1): GOSUB 270 

770 IF ZH = 37 THEN PRINT CHRS (7); 

780 IF F1 < > 0 THEN ZB = WB:F1 = 0 


790 RETURN 

900 REM AFFICHAGE DU MODE DANS LA CASE 
40,24 

910 ZX = 12288 + 1536 * (ZL = 0) + 8 * ( 
ZE - 32) 


920 IF ZM = 1 THEN FOR J = 0 TO NJ: POK 
E 17399 + Z1(J),21% - PEEK (ZX + J) 
: NEXT : RETURN 

930 FOR J = 0 TO NJ: POKE 17399 + Z1(J), 
PEEK (ZX + J): NEXT : RETURN 

940 REM EFFACEMENT DE LA CASE 40,24 

950 BX = BA:BA = 17399: FOR J = 0 TO NJ: 
POKE BA + Z1{J), PEEK (2B + J): NEX 
T :BA = BX: RETURN 

960 END 

1000 : 

1020, REM *###% JDESSINVEEUNECYCLE *#*24%# 

1020  % 

1030 IF SH > 2 THEN 1070 


1040 


1050 


1060 


1070 
1080 


1090 
1100 


3000 
3010 
3020 


4000 
4010 
4020 


4030 


5000 
5010 
5020 
5030 
5040 


5050 


5060 
5070 
6000 
6010 
6020 
6030 
6040 


6050 
6060 
6070 
7000 
7010 
7020 
7030 
7040 


7050 


GOSUB 300:X2 = ZH * 7 - 5 +5 * (Z 

B = 13056 OR F1 = 1):Y2 = ZV * 8 - 
16 * (F1 = 0) 

IF XZ < 1ORYZ < 1 OR XZ > 256 OR 
YZ > 168 THEN RETURN 

DRAN SH AT X2,Y2:2H = 2H + 4 * (F1 
= 0):Fi = 0: GOSUB 270: RETURN 

REM ELECTRONIQUE 

GOSUB 300:XZ2 = ZH * 7 - 6 +2 * (Z 

C = 71) 

YZ = WW 8 = 5 - 3 * (8G = 71) 

DRAWN SH AT XZ,Y2:2H = ZH + 3 * (SH 
= 6 OR SH = 7 OR SH = 8) + 4 * (S 

H = 4) + 5 * (SH = 5): GOSUB 270: 

RETURN 

REM *#**#*X TEXT -> HGR2 444% 


POKE 49232,0: POKE 49234,0: POKE 4 
9237,0: POKE 49239,0: GOSUB 900: R 
ETURN 


REM *#*#4X MISE À ZERO DES POINTEU 
RS #444%4 

ZE = 49:ZF = 0:ZM = O:F1 = 0:ZL = 
0:Z2B = 12288:TA = 28676:F2 = 0:F3 
= 0:ZH = 1:ZV = l:FL = 0: RETURN 
REM 

REM **##**%* SAUVE PAGE GRAPHIQUE ** 


ONERR GOTO 9000 
PRINT CHR$S (7);: GOSUB 300: TEXT 


: HTAB 1: VTAB 23: CALL - 868: IN 
PUT "SAUVEGARDE DE LA PAGE ";NS: TI 
F N$ = "" THEN 5060 


GOSUB 300: PRINT DS"BSAVE "NS$",AS4 
000,L$1FF8": GOSUB 3020 

GOSUB 3020 

RETURN 


REM #**%#4#4 CHARGE PAGE GRAPHIQUE ** 


ONERR GOTO 9000 

PRINT CHR$ (7);: TEXT : HTAB 1: V 
TAB 23: CALL - 868: INPUT "CHARGE 
MENT DE LA PAGE ";N$: IF NS = ""T 
HEN 6060 

PRINT DS$"BLOAD "N$",A$S4000" 

GOSUB 3020: GOSUB 290 

RETURN 


REM **##4 SAUVE UN BLOC *#*#* 


ONERR GOTO 9000 

PRINT ÆCHR$ (7):: TEXT : HTAB 1: V 
TAB 23: CALL - 868: INPUT "SAUVEG 

ARDE DU BLOC ";N$: IF NS = ‘"* THEN 
5060 

GOSUB 300 
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13 


7060 


7080 
8000 
8010 
8020 
8030 
8040 


8050 
8060 
8070 
9000 
9010 
9020 
9030 
9040 
9050 
9060 
9065 
9070 
9080 
9090 
10000 
10010 
10020 
10030 
10040 
10045 
10050 


10060 


10070 


10080 
10090 
10100 
10110 


10120 





PRINT DS$S"BSAVE "NS$".BLOC, A$ 
7000,L"(DX + 1) * (DY + 1) * 

8 + 97070 GOSUB 3020 

RETURN 


REM ***#* CHARGE UN BLOC ***#*+* 


ONERR GOTO 9000 


PRINT CHR$ (7);: TEXT : HTAB 1: V 
TAB 23: CALL - 868: INPUT "CHARGE 
MENT DU BLOC ";NS$: IF N$ = "" THEN 


5060 
PRINT DS$S"BLOAD "N$".BLOC,AS$S7000" 


GOSUB 3020 

RETURN 

REM TRAITEMENT ERREURS 

TEXT : HOME 

ER = PEEK (222):EL = PEEK (218) 
+ 256 * PEEK (219) 

IF ER = 4 THEN PRINT "DISK PROTEG 
E EN ECRITURE": GOTO 9080 

IF ER = 6 THEN PRINT "CE FICHIER 
N'EXISTE PAS": GOTO 9080 

IF ER = 8 THEN PRINT "ERREUR I/0" 
: GOTO 9080 

IF ER = 9 THEN PRINT "DISK REMPLI 


": GOTO 9080 

IF ER = 255 THEN PRINT "TAPER UNE 
TOUCHE POUR CONTINUER": GOTO 9080 

PRINT "ERREUR "ER" DANS LA LIGNE " 

EL: END 

POKE 216,0: GET RS$: HOME 

GOSUB 3020: GOTO 10030 


REM *** ANALYSE DES COMMANDES *** 


WAIT - 16384,128,127:2C = PEEK ( 
— 16384) - 128: POKE - 16368,0 
EF ‘= F1 + ( BEEK ( - 16287) > 127) 

+ 2 * ( PEEK ( - 16286) > 127) 


IF ZC = 30 THEN F1 = 10: GOSUB 630 
: GOTO 10030 

IF ZC > 31 THEN GOSUB 630: GOTO 
10030 

IF ZC = 4 THEN PRINT : TEXT : HOM 

E : PRINT CHR$ (4)"CATALOG": CALL 


- 651: GOSUB 3020: GOTO 10030 
IF ZC = 27 THEN GOSUB 12010: GOTO 
10030 


REM DEPLACEMENT DU CURSEUR 


IF ZC = 8 THEN GOSUB 300:ZH = (ZH 
- 1) * (ZH > 1) + 40 * (ZH = 1):Z 
V = ZV - (ZH = 40) * (1 + (ZL = 1) 
): GOSUB 270: GOTO 10030 

IF ZC = 10 THEN GOSUB 300:ZV = 2V 
+ (ZV < 24) + ((ZL = 1l) AND (ZV < 


23)): GOSUB 270: GOTO 10030 


10130 


10140 


10150 


10160 
10170 
10180 
10190 


10200 
10210 
10220 
10230 


10240 
10250 
10260 
10270 
10280 
12000 
12010 
12020 
12030 


12040 
12050 


12060 


12063 


12065 


12066 


12067 


12068 


12069 


IF ZC = 11 THEN GOSUB 300:ZV = ZV 
— (ZV > 1) - ((ZL = 1) AND (ZV > 
2)): GOSUB 270: GOTO 10030 
IF ZC = 13 THEN GOSUB 300:ZH = 1: 
ZV = ZV + (ZV < 24) + ((ZL = l) AN 
D (ZV < 23)): GOSUB 270: GOTO 1003 
0 
IF ZC = 21 THEN GOSUB 300:2H = (Z 
H + 1) * (ZH < 40) + (ZH = 40):2V 
= ZV + (ZH = 1) * (1 + (ZL = 1)): 
GOSUB 270: GOTO 10030 


REM TOUCHES CTRL POUR APPLE II+ 
IF ZC = 9 THEN F1 = l: GOTO 10030: 


REM CTRL-I => LETTRE SUIVANTE EN 
INDICE 


IF ZC = 14 THEN ZC = 95: GOSUB 630 
IF Z2C = 15 THEN ZC = 92: GOSUB 630 
IF 2ZC = 16 THEN ZC = 96: GOSUB 630 
IF ZC = 19 THEN ZF = (2F = 0): GOT 
O 10030: REM BASCULE MAJUSCULES/MI 
NUSCULES 

IF 2C = 24 THEN F1 = 2: GOTO 10030 
IF 2C = 7 THEN F1 = 3: GOTO 10030 
IF 2C = 26 THEN ZC = 126: GOSUB 63 
0 

IF ZC = 29 THEN ZC = 91: GOSUB 630 
GOTO 10030 

REM : LA TOUCHE ESC 

WAIT - 16384,128,127:2C = PEEK ( 


- 16384) - 128: POKE - 16368,0 
IF ZC < 49 OR ZC > 53 THEN 12060 
ZE = ZC: GOSUB 300:2B = 12288 + 76 


8 * (ZC - 49): GOSUB 270:Z2X = 1228 
8 + 8 * (2C = 32): GOSUB 900: RETU 
RN 


IF ZC = 45 THEN NJ = 13 - NJ: RETU 

RN : REM TIRET -> SOULIGNE (BASCUL 

E) 

IF 2C = 43 THEN F1 = 3: GOSUB 630: 
RETURN : REM + OU - PAR FRAPPE 

DE + 

IF ZC = 47 THEN F1 = 3:21 = 1:ZC = 
64: GOSUB 630:ZL = 0: RETURN : RE 


M SYMBOLE SOMME OBTENU PAR ESX 
/ 

IF ZC = 21 THEN F1 
SUB 630: RETURN : 
TE 

IF 2C = 8 THEN F1 = 3:2C = 60: GOS 
UB 630: RETURN : REM FLECHE GAUCH 
E 

IF 2C = 10 THEN F1 
SUB 630: RETURN : 
ICALE BAS 

IF 2C = 11 THEN Fl = 


= 3:2C = 62: GO 
REM FLECHE DROI 


= 3:ZC = 59; GO 
REM FLECHE VERT 


3:2C = 94: GO 








12070 


12075 
12080 
12090 


12100 


12110 


12120 


12130 


12140 


12150 


12160 


12170 


12180 


12190 


12200 


12210 


12220 
15000 
15010 
15020 


15100 
18000 


SUB 630: RETURN : REM FLECHE VERT 


ICALE HAUT 

IF ZC = 66 THEN GOSUB 300:FL = FL 
+ 1:NX = ZH * (FL = 2):NY = (ZV - 
1) * (FL = 2): IF FL = 1 THEN X = 
ZH:Y = ZV + 1: GOSUB 270: RETURN 
: REM : -> TRAVAIL SUR BLOCS 

IF FL = 3 THEN FL = 0 

IF ZC = 66 THEN RETURN 

IF ZC = 70 THEN ROT= 0: GOSUB 180 
10: RETURN : REM F => FORME AVEC R 
012=0 

IF ZC = 71 THEN ROT= 16: GOSUB 18 
010: RETURN : REM G => FORME AVEC 
RO1=16 


IF (2C = 72 OR ZC = 104) THEN ZH = 
1:Z2V = 1: HGR2 : GOSUB 270: RETUR 

N : REM H(OME) => VIDE L'ECRAN HGR 
IF (2C = 76 OR ZC = 108) THEN GOS 
UB 6010: RETURN 

IF (Z2C = 81 OR ZC = 113) THEN TEX 
T : END : REM Q => QUITTER LE PROG 

RAMME 

IF (2C = 82 OR ZC = 114) THEN TA = 
28676: GOSUB 8030:DX = PEEK (TA 
- 1):DY = PEEK (TA):X = ZH:Y = 2V 
:FL = 6: GOSUB 420: RETURN : REMR 
=> RAPPEL D'UN BLOC 

IF FL = 1 AND (ZC = 78 OR 2C = 69) 
THEN NX = ZH:NY = 2V - 1: GOSUB 4 

10: REM INVERSI 

IF FL = 2 AND (2C = 67 OR £C = 68) 
THEN GOSUB 410: RETURN : REM COP 

IE OU DEPLACEMENT BLOC 

IF (2C = 83 OR ZC = 115) THEN GOS 

UB 5010: RETURN : REM S => SAUVE U 

NE PAGE GRAPHIQUE 

IF (2C = 73 OR ZC = 105) THEN GOS 

UB 20010: GOSUB 3020: RETURN : REM 
I (NSTRUCTIONS 

IF (2C = 86 OR ZC = 118) THEN ZM = 
(ZM = 0): GOSUB 900: RETURN : REM 
BASCULE VIDEO INVERSE/NORMAL 

IF FL = l AND (2C = 87 OR ZC = 119 

) THEN TA = 28676:FL = 7:NX = ZH:N 

Y = ZV - 1: GOSUB 410: POKE 28675, 

DX: POKE 28676,DY: GOSUB 7030: RET 

URN : REM W => SAUVEGARDE D'UN BLO 

C 

IF (2C = 89 OR 2ZC = 121) THEN ZL - 
(ZL = 0): GOSUB 900: RETURN : REM 
Y => BASCULE DOUBLE HAUTEUR 

RETURN 


REM  HARD COPY 

REM METTRE ICI L'APPEL DU SOUS-PR 
OGRAMME DE HARDCOPY 

RETURN 
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18010 REM SHAPES 


18020 
18030 


18040 


18050 
18060 
20000 
20010 
20020 
20030 
20040 


20050 
20060 


20070 


20080 


20090 


20100 


20110 


20120 


20130 


20140 


20150 


20160 
20170 


20180 


20190 


20200 


20210 
20220 
20230 
20240 
24000 
24010 
24020 
25010 


25015 
25020 


25030 


WAIT - 16384,128,127:SH = 
- 16384) - 128 - 48: POKE 

8,0 

IF SH < 1 OR SH > 9 THEN 18030 
GOSUB 1020 

RETURN 


PEEK ( 
— 1636 


REM *###* INSTRUCTIONS #*#4% 


TEXT : HOME 

INVERSE : PRINT "EDITEUR HGR : EDI 

GRAPH (C) 1985 R.JOST ‘";: NORMAL 

INVERSE : PRINT "<ESC>:": NORMAL 

PRINT "1-5: POLICES 1 À 5. B: TRAI 

TEMENT BLOCS" 

PRINT "F: FORMES 0 DEG. G: FORM 

ES 90 DEG" 

PRINT "H: HOME JF: INST 

RUCTIONS" 

PRINT "“L: CHARGE PAGE HGR. S: SAUV 

E PAGE HGR" 

PRINT "R: LECTURE BLOC P: HARD 

COPY 

PRINT "“Q: QUITTER. —: MODE 
SOULIGNE. " 

PRINT "V: BASCULE VIDEO Y: BASC 
ULE HAUTEUR" 

PRINT : PRINT "SOUS-COMMANDES BLOC 

5" 

PRINT "N: NEGATIF D: DEPL 

ACE UN BLOC." 

PRINT "C: COPIE BLOC E: EFFA 

CE UN BLOC.” 

PRINT "W: ECRITURE BLOC." 

PRINT : INVERSE : PRINT "CTRL": NO 

RMAL 

PRINT "S: BASCULE MAJ/MIN. G: LETT 

RE GRECQUE." 

PRINT “I: INDICES. X: EXPO 

SANTS." 

PRINT "“J: CURSEUR BAS. K: CURS 

EUR HAUT." 

PRINT "D: CATALOG" 

PRINT "<RETURN>: RETOUR CHARIOT" 

CALL - 651 

RETURN 

REM *#28%#  INITIADISATION X#rrS 


REM 
Z21 = 1024:21% = 255:22% = 128:22 — 
16255:23 = 984:2Z = 7168:2B 1 
88:BA = 16384:ZH = l:ZV = 
:CZ = O:NJ = 7:B1(0) = 0:ZM = 0: 

TA = 28676: REM ZONE TAMPON 
DEF FN B1l(Z) 


* INT ((ZV - 1) / 8) +2zZ 
Z1(0) = 


0:Z21(1) = 1024:21(2) = 204 


= 22 + 22% * ZV - 23 
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8:Z21(3) = 3072:21(4) = 4096:Z1(5) HCOLOR= 3 
= 5120:21(6) = 6144:Z1(7) = 7168 26030 RETURN 





26000 D$ = ÆCHR$S (4) 30000 REM REDEMARRAGE À CHAUD 

26010 PRINT D$"BLOAD SET, A$3000" 30010 : 

26020 PRINT D$"BLOAD FORMES4,AS$6000": P 30020 HOME : GOSUB 4030: GOSUB 3020: GOT 
OKE 232,0: POKE 233,96: SCALE= 1: O 10030 

Polices ‘SET’ 3220- 20 20 3C 22 22 22 3C 00 33F0- 00 10 20 7F 20 10 00 00 35C0- 00 00 91 14 8C 8C 14 A2 


3228- 00 00 1C 22 3E 02 3C 00 33F8- 71 11 11 OA OA OA 04 04 35C8- 00 10 89 2A 95 8F 82 02 
3230- 18 24 04 1E 04 04 04 00 3400- 60 10 10 08 08 04 09 03 35D0- 04 9C 04 82 82 04 84 06 
3238- 00 00 1C 2222 3C 20 1C  3408- 08 8C 14 92 JE Al 63 00 35D8- 38 OC 0C 06 OC OC 38 00 
3240- 02 02 1E 22 22 22 22 00 3410- 1F 22 22 1E 22 22 1F 00 35E0- 08 08 08 08 08 08 08 08 
3248- 08 00 OC 08 08 08'1C 00 3418- 3£ 22 02 02 02 02 83 00 35E8- 0E 18 18 30 18 18 OE 00 
3250- 10 00 18 10 10 10 12 0C 3420- 08 8C 14 92 22 Al 7F 00 35F0- 2C 1A 00 3E 00 00 00 00 
3258- 02 02 22 12 0E 12 22 00 3428- 3F 22 02 0E 02 22 3F 00 35F8- 7 7F 7F 7F 7F 7F ?F 7F 
3260- 0C 08 08 08 08 08 1C 00 3430- 1C 08 3E 6B 3E 08 1C 00 3600- 00 00 00 00 00 O0 00 00 
3268- 00 00 36 2h 2A 2A 22 00 3438- 3F 22 02 02 02 02 83 00 3608- 00 00 08 08 08 00 08 00 
3270- 00 00 IE 22 22 22 22 00 3440- B3 22 22 3E 22 22 B3 00 3610- 00 00 14 14 00 00 00 00 
3278- 00 00 1C 22 22 22 1C 00 3448- 8C 08 08 08 08 08 8C 00 3618- 00 09 10 3C 08 1E 04 00 
3280- 00 00 1E 22 22 1E 02 02 3450 1C 22 A1 BF Al 22 1C 00 3620- 90 00 08 1C 08 1C 08 00 
3288- 00 00 3C 22 22 3C 20 20 3458- B3 12 OA 06 OA 12 B3 00 3628- 00 00 14 10 08 04 14 00 
3290- 00 00 3A 06 02 02 02 00 3460- 08 8C 14 92 22 A1 63 00 3630- 00 00 1C 14 1C 00 00 00 
329%- 00 00 3C 02 1C 20 1E 00 3463- B3 36 2A 2A 22 22 B3 00 3638- 00 00 08 08 00 00 00 00 
32A0- 04 04 1E 04 04 24 18 00 3470- B3 22 26 2A 32 22 B3 00 3640- 00 00 08 04 04 04 08 00 
32A8- 00 00 2222 22 32 2C 00 3478- IC 22 Al Al Al 22 1C 00 3648- 00 09 08 10 10 10 08 00 
32B0- 00 00 2222 22 14 08 00 3480- BF 22 22 22 22 22 B3 00 3650- 00 00 00 14 08 14 00 00 
32B#- 00 00 22 22 2A 2A 36 00 3488- 3F 21 00 1E 00 21 3F 00 3656- 00 00 00 08 1C 08 00 00 
32C0- 00 00 22 14 08 14 22 00 3490- 1F 22 22 1E 02 02 83 00 3660- 00 00 00 00 10 10 08 00 
32C8- 00 00 22 22 22 3C 20 1C 3498- 3F 22 04 08 04 22 3F 00 3668- 00 00 00 00 1C 00 00 00 
32D0- 00 00 3E 10 08 04 3E 00 34A0- BF 08 08 08 08 08 8C 00 3670- 00 00 00 00 00 08 00 00 
32D8- 20 10 1C 22 JE 02 3C 00 34A8- 36 AD 08 08 08 08 8C 00 3678- 00 00 10 10 08 04 04 00 
32£0- 04 08 22 22 22 32 2C 00 34B0- 63 A1 22 92 14 8C 08 00 3680- 00 00 IC 14 14 14 1C 00 
32E8- 10 20 1C 22 3E 02 3C 00 3488- 1C 22 Al A1 22 92 83 00 3688- 00 00 0C 08 08 08 1C 00 
32F0- 2C iA 00 00 00 00 00 00 34C0- B3 22 14 08 14 22 B3 00 3690- 00 00 1C 10 1C 04 1C 00 
32F8- 7E 9F 7F7F?F?7F7FFFE 34C8- 1C 08 6B 2A 1C 08 8C 00 3698- 00 00 1C 10 18 10 1C 00 
3300- 00 00 00 00 00 00 00 00 3400- BF 22 10 08 04 22 BF 00 36A0- 00 00 04 14 1C 10 10 00 
3308- 08 08 08 08 08 08 08 08 34D8- 3E 06 06 06 06 06 3E 00 36A8- 00 00 1C 04 1C 10 1c 00 
3310- 00 2A 2A 2A 2A 2A 2A 00 34E0- 00 02 04 08 10 20 00 00 36B0- 00 00 1C 04 1C 14 1C 00 
3318- 00 14 14 14 14 14 14 00 34£8- 3E 30 30 30 30 30 3E 00 3688- 00 00 1C 10 08 08 08 00 
3320- 40 00 30 00 1C 00 1F 00 34F0- 08 1C 2A 08 08 08 08 G& 36C0- 00 00 JC 14 1C 14 1C 00 
3328- 60 38 0E 07 03 01 00 00 34F8- 00 00 00 00 00 00 00 7F 36C8- 00 00 1C 14 1C 10 1C 00 
3330- 00 00 36 49 49 36 00 00 3500- 00 04 08 12 24 08 10 00 36D0- 00 00 00 08 00 08 00 00 
3338- 00 00 00 00 00 00 00 00 3508- 00 00 00 2E 11 19 B7 00 36D8- 00 00 00 00 08 00 08 04 
3340- 00 20 10 08 04 02 00 00 3510- 00 B& A4 3C A2 26 9D 01 36E0- 00 00 10 08 04 08 10 00 
3348- 00 02 04 08 10 20 00 00 3518- 00 00 A6 28 98 10 68 00 36E8- 00 00 00 1C 00 1C 00 00 
3350- iC 14 14 14 1C 00 00 00 3520- 18 84 08 8E 12 12 0C 00 36F0- 00 00 04 08 10 08 049 00 
3358- 08 08 3E 08 08 00 3E 00 3528- 00 00 9C 82 1E 02 8E 00 36F8- 00 00 1C 10 08 00 08 00 
3360- 00 04 08 12 24 08 10 00 3530- 90 10 3C AA 2A SE 84 04 3700- 00 00 00 36 49 49 36 00 
3368- 00 00 00 ?7F 00 00 00 00 3538- 00 00 A6 28 98 10 88 00 3708- 00 00 1C 14 1C 14 14 00 
3370- 10 08 48 24 24 12 12 08  3540- 00 00 36 A4 24 92 10 88 3710- 00 00 OC 14 OC 14 OC 00 
3378- 00 10 08 24 12 08 04 00 3548- 00 00 88 08 84 04 OC 00 3718- 00 00 1C 04 O4 04 1C 00 
3380- 00 00 00 00 00 00 00 7F 3550- 30 28 24 9E 12 OA 06 00 3720- 00 00 OC 14 14 14 OC 00 
3386- 40 20 10 08 04 02 01 00 3558- 00 00 24 8A 06 89 31 00 3728- 00 00 1C 04 OC 04 1C 00 
3390- 7F 00 00 00 00 00 00 00 3560- 06 84 08 8C 14 92 22 00 3730- 00 00 1C 04 OC 04 04 00 
3398- 01 02 04 08 10 20 40 00 3568- 00 00 A4 24 92 2A 81 01 3738- 00 00 1C 04 04 1C 1C 00 
33A0- 01 01 01 O1 O1 01 01 01 3570- 00 00 A3 24 14 OC 04 00 3740- 00 00 14 14 1C 14 14 00 
33A8- 40 40 40 40 40 40 40 40 3528- 00 00 8C 92 22 92 8C 00 3748- 00 00 1C 08 08 08 1C 00 
33B0- 00 00 00 78 08 08 08 08 3580- 00 00 BF 15 14 14 92 00 3750- 00 00 10 10 10 14 1C 00 
33B8- 00 00 00 OF 08 08 08 08 3588- 08 38 84 9C 04 82 1C 10 3758- 00 00 14 OC 04 OC 14 00 
33C0- 08 08 08 78 00 00 00 00 3590- 00 00 18 24 92 0E 81 01 3760- 00 00 04 04 04 04 1C 00 
33C8- 08 08 08 OF 00 00 00 00 3598- 00 00 00 BE 89 09 87 00 3768- 00 00 22 36 2A 22 22 00 
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Courrier automatisé 


Véronique Schmitt 


orsque nous abordons Fichier de Glossaire 


W.P.L. et le courrier 
dit automatisé", nous ‘E N TE TE | 
ne trouvons que des 
“circulaires” à personnaliser et  wvéronique scamr7r 
leur fichier d'adresses  Mænsieur 
pré-enregistré. Or, si la circulaire re aorer 
répond bien aux besoins | ; 
professionnels, pour lesquels la 
création d'un fichier est 
rentabilisée par des emplois 
successifs, elle paraît inadaptée 
pour des besoins personnels car, 
dans ce cas, le fichier n'est créé 


que pour la circulaire en question Programme WPL 





et tout le travail de saisie, qui est ç ç 
si fastidieux, n'est guère FORMAT 
fructueux. En effet, dans le cas _. 
d'un particulier, de quelles PPR (ici maître CTAL L, entre deux CTRL Vbien sûr) 
lettres-type s'agit-il le plus PPR RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR ARR 
souvent ? PPR sex rx 
PPR EE) CHOIX DU FORMAT B'IMPRESSION DRE) 
* une lettre de demande de PPR "xx 2.» 
renseignements auprès d'agen- a RRRRRRRRRRRRRRRRRRRRRRRRRR RAR RNA RNA À 
ces de voyage; pra 
- une demande de tarif à une PPR Avant de charger le format d'impressien désiré, 
compagnie d'assurance; PER Vous etes-veus blen assuré de l'aveir sauvegardé 
; : : : 2 PER sur 13 disquette #.P.L. 
+ uneinvitation des amis aux dix Re 
ans de la petite. PPR 
(2 etc. PIN NOM DU FORMAT D'IMPRESSION À CHARGER: =$SA 
PCS/SAS/ 
; PDO MENC 
Dans chaque cas, la liste des gcsa 
destinataires est différente et la PDO MENO 


mémoriser en vue dune 
utilisation ultérieure s'avère 
souvent inutile (si ce n'est dans le 
dernier cas : le fichier “Amis” 
peut éventuellement resservir...). 


Nous avons donc mis au point un 


programme W.P.L. de Fa Programme WPL 
automatisé” pour satisfaire les , , 
besoins des particuliers. GLOSSAI R E 


PND 
Utilisation 2 PO eos ur 
+2 ... 
du programme en *#+x* CHOIX DU GLOSSATRE “ar 
PPR LS *** 
Comme pour tout programme PPR RRReRRRReR nee eeneeeeennenenetennenteeeeeenenee 
W.P.L.,, il est nécessaire de “ 
charger préalablement Apple PPR Avant de charger le Gicssaire désiré, 
Writer Ile (en français). PPR Vous etes-vous bien asssré Ge l'avoir sauvegardé 
Pour appeler le programme, tapez Lee SR ER PL : 
<P> (CONTROLE P), puis après en 
apparition du message PIN NOM DÙ GLOSSAIRE À CEPRGER: -5E 
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IMPRESSION/PROGRAMME : 
DO MENU. 


NDLR : Si, au lieu de baptiser le 
programme "MENU", nous 
l'appelons "STARTUP", Apple 
Writer le chargera automatique- 
ment, lors du Boot. 


Le programme se décompose en 
4 phases principales : 
+ lère phase : chargement du 
format d'impression; 
+ 2ème phase : chargement du 
ne 
ème phase : création de la 
"lettre-type" selon un schéma 
prédéterminé; 
* 4ème phase : exploitation de la 
lettre créée (saisie des mentions 
variables et édition). 


Il suffit ensuite de suivre pas à 
pas les instructions figurant à 
l'écran. 


Fonctionnement 
du programme 


Le menu 


C'est un programme W.P.L. ne 
présentant aucune particularité. 
Pour quitter, i suffit de taper sur 
"RETURN". 


Chargement du format 
d'impression et 
du glossaire 


Ce sont deux programmes 
W.P.L. Il suffit d'entrer le nom 
du fichier. En cas d'erreur, un 
retour chariot permet de revenir 
au menu principa . Îlest rappelé à 
l'utilisateur que les fichiers de 
format d'impression et les 
glossaires doivent être 
préalablement enregistrés sur la 
disquette. Les initiés à 
AppleWriter connaissent bien 
cette procédure de sauvegarde. 


Création de la lettre 


C'estun fichier texte. Il a été créé 
à partir d'AppleWriter Ile et se 
met donc à jour en utilisant les 
commandes AppleWriter. 


A ce stade, l'utilisateur complète 
la lettre avec les mentions 
constantes (Réf., objet, date, 


PCS/SA// 
PDO MENU 
QE SA 

PDO MENU 





Fichier AppleWriter 
‘LETTRETYPE" 


Véronique SCHMITT 
rue des Cerisiers 
97212 AILLEURS 


(N@n) 


(ADRESSE) 
(VILLE) 
Réf. : 
Objet : 
Ailleurs, 
le 
(APPELLATION) 


Veuillez agréer, (APPELLATION), nos salutations distinguées. 


V. Schmitt, 

lère Phase : CREATION DE LA LETTRE TYPE 

- Taper <b> pour avoir le debut de la lettre 

- Compléter la lettre (Rèf., Objet, Date, Corps) 
2ème Phase : SAUVEGARDE DE LA LETTRE TYPE 

- Mettre le curseur au debut de la lettre type 

- Charger la lettre tÿpe completee sous le nom XX 

- Taper <S> : XX/V. Schmitt,/ 


3ème Phase : RETOUR AU MENU WPL POUR EXPLOITER LA LETTRE TYPE 
- Tager <P> DO MENU 


Programme WPL 
MENU" 


PND 

PPR {ici maître CTRL L entre deux CTRL Vbien sûr} 

PPR ÉPRLLLILLSISILSITISI LIST TI ST STI SSL ST S TITI TS LI IL) 
PPR er +++ 
PPR *. COURRIER AUTOMATISE (W.P.L.) dns 
PPR CEE * 
PPR RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRÉRARERARRR RER 
PPR 

PPR MENU 

PPR 

PPR 

PPRI- CHOIX DU FORMAT D'IMPRESSION 

PPR 

PPR2- CHOIX DU GLOSSAIRE 

PPR 


PPR3- CREATION D'UNE LETTRE TYPE 
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corps). Puis il la sauvegarde sous 
le nom de son choix (ici XX). 
Afin de ne pas annexer à la lettre 
créée les instructions qui figurent 
en-dessous, il ne faut 
sauvegarder le texte que de 
l'en-tête jusqu'au signataire, d'où 
la nécessité de placer le curseur 
au début de la lettre et de la 
sauvegarder sous le nom XX/V. 
Schmitt. 


Enfin, comme il s'agit d'un 
fichier texte, il est nécessaire pour 
poursuivre de retaper <P> : DO 
MENU. 


Remarque : Ce schéma de lettre 
concerne la correspondance de V. 
Schmitt. Le lecteur le 
personnalisera en tapant ses 
propres coordonnées à la place 
des siennes et sauvera le texte 
sous le nom "LETTRETYPE". 


Exploitation de la lettre 


C'est un programme W.P.L. qui 
se déroule en deux phases 
principales: 

« saisie du nom de la lettre à 
éditer; 

« saisie des mentions variables 
concernant le ler destinataire, 
puis édition correspondante. 
Saisie des mentions variables 
concernant le destinataire 
suivant, puis édition, etc. 


Le retour au menu se fait par un 
retour chariot lors de la saisie 
d'un nouveau nom de 


destinataire. 


CHOIX 


PPR 

PPR4- EXPLOITATION D'UNE LETTRE TYPE 
PPR 

PPR 

PIN VOTRE CHOIX: =$A 
PCS/SA/1/ 

PDO FORMAT 

PCS/sa/2, 

PDO GLOSSAIRE 

PCS/Sa/3/ 

PGO LT 

PCS/Sa/4/ 

PDO SAISIE 

NO 


L LETTRETYPE 


Programme WPL 


BOUCLE 


SAISIE" 


PPR (ici mettre CTAL L, entre deux CTAL Vbien sér) 


PPR RRRRRRRRRRRRRRRRRR ARR RAR RAR RAR RAR ARR RAR RRRRRRRRARRRARRRÉRRRRRR 


PPR: Fer CELLES 
PPR ### EXPLOITATION D'UNE LETTRE TYPE *#** 
PPR: F** #*### 


PPR RRRRRRRRRR ARR RAR RAR RR RAR RM RAS RAR ARR RAR ARR RAR RRARRRRRARRRR 


PPR 

PPR 

PIN NOM DE VOTRE LETTRE TYPE :=$c 
NO 

L $c 

PPR (ici mettre CTRL L, entre deux CTRL Vbien sr) 
B 

PIN NOM DU DESTINATAIRE :#SA 
PCS/SA// 

PDO MENU 

F/ (NOM) /SA/a/ 

B 

PIN ADRESSE :=$A 

F/{ADRESSE) /SA/a/ 

B 

PIN VILLE :=S$SA 

F/ {VILLE} /Sa/a/ 

B 

PIN APPELLATION :=SA 

F/ (APPELLATION) /SA/a/ 

B 


. PNP 


PGO BOUCLE 


Editeur Plein Ecran 


Le Pacha 


E D E Apple J[+, //e, //c 


Listez vos programmes Basic en avant et en arrière. 
Modifiez, insérez, effacez des caractères en plein écran sans relire les lignes. 


Recherchez toute chaîne de caractères. 
Choisissez vous-même les codes de contrôle d'EPE. 
Modifiez EPE : le fichier source est sur la disquette. 


150,00 F TTC franco (bon de commande page 74). 
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RWTS désassemblée 


Patrice Neveu 


ans le numéro 9 de Pom, 

Thierry Le Tallec désassemblait 

pour nous la ROM en $C600 : les 

méandres du Boot devenaient 
clairs. Aujourd'hui nous nous consacrons à 
Rwts. Beaucoup d'encre a coulé à son sujet, 
citons particulièrement celle de Call Apple 
dans A/{ Abour Dos. 


Les fichiers de désassemblage qui suivent 
sont écrits en Big Mac : 


+ Rwts 1 regroupe les sous-routines Prenibl 
Write Postnibl Read Rdadr Seekabs 
Wrtform. 


° Ruwts 2 est à proprement parler Rwts. 


+ Ruwts 3 est le formatteur 16 secteurs du 
DOS 3.3. 


Ces fichiers devraient permettre au lecteur de 
modifier avec plus de facilité le DOS. Ils 
devraient simplifier la mise au point de 
formattages fantaisistes, de protection 


logicielle. . 


NIBBLE BUFFERS 


Entrées!/Sorties 


Formateur 
16 secteurs 


Utilitaires de RWTS 
PRENIBL WRITE POSTNIBL 
READ RDADR SEEKABS 


DOS 


Carte de RWTS en mémoire 








RWTS 1 
(Assembleur BigMac) 


é chééééééééééééééééééiééédéééééés 
3e ,* 
4 , DISK IT È 
5 * SOUS-ROUTINES CTILITAIRES DE * 
6 * READ / NRITE TRACK & SECTOR sd 
7 {($8800.BCDE) # 
€ ’ ‘ 
g * , 
10 é © PAR APPLE COMPUTER. y 
51 * * 
12 , DESASSEMELE PAR P. NEVEU e 
13 p * 
14 FLLELLLLEZILLLIIILIZIIILIIILIILI II 
15 
16 

17 

18 CRG $B800 

19 BJ 58800 
20 
21 LEP PET PE) 
22 4 
23 * LABELS 
24 LL 


25 tanmammmmm-— cm 


DATA2 


DATA3 
NIBLSOF 


NIBLBUF 1 
NIBLBUF2 


RDLTCA 
ARLTCH 
RDMODE 
ARNOBSE 
PBSOFE 


EQU $3E 


eco 54i 
EQ 53F 
EX ÿ44 
EoC $2A 
£QC S46 


EQu $2C 
E0U $27 
£Q9 $26 


£QU $2a 

EQU $0478 
EQU $0678 
£QU $BAII 
EQ7 $BAID 


EQU SBA29 
EQU $B800 


EQU $BBEF 
EQv $8c0 


ÆQu $co8c 


EQu $Cc08D, 


EQU $CO8E 
EQU $CO8r 
EQU $c080 


POINTE SUR LA PAGE DE BUFFER DE 
TRAVAIL 

NUMERO DE VOLUME 

NOSECT 

NO PISTES 

PISTÉ DE DESTINATION 

COMPTEUR SERVANT AUX D£SLAIS OÙ 
HOTEUR 


COMETEUR POUR LE BUFFER 
SECONDAIRE 

NUMERO DE SLOT 

LE NUMERO DE LA PISTE ACTUELLE 


BA11,BA28 : OELAIS POUR LES 
MOUVEMENTS 

DU BRAS. UTILISE LORS DES 
PHASES ON/OFF 

TABLE DE CONVERSION AL'ECRITURE 
ADRESSE D£ DEBUT DO BOUFFER 
PRIMAIRE 


ADRESSE DE DEBUT DU BUETER 
SECONDAIRE 

SNITOR DE LECTURE DATA 

SWITCH D'ECRITORE DATA 

SNITCH POUR MODE LECTURE 
ECRITURE 

ZONE ALLUMANT OU ETEIGNANT LES 














4 PHASES 








* { $c080.c087) 
fonessz==z-—--=22SMEeSSESEEEEEZ 
#* PRENIBL — WRITE -— POSTNIBL 
* READ — RDADR - SEEKABS 
* MMM 
1 
* PRENIBL:NIBBLELIZE POUR ECRIRE 
* ÉNSUITE. 
fænmms==: PrELI 
PRENIBL LDX #$00 CONVERTIT 256 OCTETS (8 BITS) 
LoY 4502 EN 342 NIBBLES (6 BITS) 
PRENIBI DEY DE LA FORME OOXXXXXX 
LDA (BUFPTR},Y PAGE À CONVERTIR EST EN BUFPTR 
LSR METHODE DE CONVERSION 6+2 (DOS 
3.3) 
ROL NIBLBUF2,X BUFFER SECONDAIRE 
LSR 
ROL NIBLBUF2,X 
STA NIBLBUF,Y  BUFFER PRIMAIRE 
IX 
cPx 4556 CODE 85 OCTETS.. 
BCC PRENIBI 
LDX 48500 
TYA --. 3 FOIS DE SUITE, POUR EN 
CODER 256 
BNE PRENIBI 
LOX 4555 IL Y À 86 NIBBLES DANS LE 
BUEFER SEC. 
LB8IE LDA NIBLBUF2,X CHARGER LES NIBBLES UN FAR 
ON... 
AND #$3F LES NIBBLES SERONT DE LA FORME 
OOXXXXXX 
STA NIBLBUF2,X REMET-LE DANS SON BUFFER 
Ex IL EN RESTE ? 
BPL LB81E OUI, ALORS Ait PROCHAIN... 
RTS 
RE —— JS RO 
#*WRITE:LA VRAIE ROUTINE QUI ECRIT 
* LES NIBBLES DES BUFFERS 
* PRIMAIRE ET SECONDAIRE 
ARITE SEC 
STX 127 DANS X IL Y À LE NUMERO DE SLOT 
* 18 
STX L0678 
LDA WRLTCH,X TESTE UNE PROTECTION À 
L'ECRITURE 
LDA RDMOBE, X 
EMI LB8B4 SI LE BIT 8 {N) = 1, PROTEGE 
LDA NIBLBUF2 
STA C&MPTEUR FIXE LE COMPIEUR DE NIBBLES 
LDA #$FF CHARGE UN OCTET DE 
SELF-SYNCHRONISATION 
STA WRMODE, X ECRIT LE SUR LE DISK 
ŒRA RDLTCH,X 
PHA PERTE DE TEMPS DE 3+4+2-9 
CYCLES 
PLA 
Nœ 
LDY 4504 METTRE MAINTENANT 4 SELF-SYNC. 
LB64A FHA FAIT EN DELAI DE 3+4=7 CYCLES 
PLA 
JSR WRTNIBL2 PUIS VA ECRIRE 
Œyr DEMANDE À PASSER AU PROCHAIN 
BNE LB84A S'IL EN RESTE... 
LDA #$D5 CHARGE LE DEBUT DU PROLOGUE 
DANS L'ACC. 
JSR WRTNIBLI ET VA ENSUITE L'ECRIRE SUR LE 
DISK 
LDA 4$AA SDS/$AA/$AD REPRESENTE LE 
PROLOGUE DU 
JSR WRTNIBLI CHAMP DATA. 
LDA #$A0 
JSR WRTNIBLI L'ECRITURE DU PROLOGUE EST 


FINIE 


120 
121 
122 


123 
124 
125 
126 
127 
128 
129 


130 


131 
132 
133 
134 
135 
136 


137 
138 
138 
140 
141 
142 


143 


144 


145 
146 
147 
148 
149 
150 
151 
152 
153 


154 
355 
156 
157 
158 
159 
160 
161 
162 
163 
164 


165 

166 
167 
168 
169 
170 
171 

172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 


187 


188 
189 
190 
191 
19 


TA 
LDY #556 PREPARE À ECRIRE 86 NIBBLES DU 
BUF.SEC. 
BNE 1.8869 TAS PRIS 
LB666 LDA NIBLBOF2, Y 
LB669 ECR NIBLBUFI,Y 
TAX 
LDA DATA3,X 
LDX L27 
STA WRLTCE,X WRITE LOAD (WRMODE DOIT AVOIR 
ETE MIS } 
LDA RDLTCH, X ECRIRE L'OCTET {AVANT -> WRITE 
MODE} 
DEY ON LES PREND DE HAUT EN BAS 
BNE LB866 S'IL EN RESTE À ECRIRE..; 
LDA C@MPTEUR 
Ne 
LB87E EOR NIBLBUF,Y LE CODAGE DES NIBBLES À 
L'ECRITURE 
TAX 
LDA DATA, X 
LDX LO678 
STA WRLTCH, X WRITE LOAD 
LDA RDLTCH, X ECRIT L'OCTET 
LDA NIBLBUF,Y PREPARE À CODER LE PROCHAIN 
NIBBLE 
INY PREND DU BUFF.PRIMAIRE, DE BAS 
EN HAUT 
BNE LB87E AU PR@CHAIN DE CES 256 
NIBBLES.,.. 
TAX PREPARE LE CHEKSUM 
LDA DATA3, X 
LOX 227 
JSR WRTNIBI3 ET VA L'ECRIRE... 
LDA #$DE CHARGE LE DEBUT DE L'EPILOGUE 
JSR WRTNIBLI ET VA L'ECRIRE... 
LDA #$An $DE/$hA/SEB EST L'EPILOGUE DU 
CHAMP - 
JSR WRTNIBLI 
LOA $$EB FINIR L'ECRITURE DE L'EPILOGUE 
JSR WNRTN'IBLI 
LDA 4$FF 
JSR WRTNIBLI 
LDA RDM@LE, x PREPARE POUR DES ENTRÉES 
LB8B4 LDA RDLTCH,X FAIT L'INVERSE 
RTS 
ARINIBLI CIC LE TEMPS EST IMPORTANT: 32 
CYCLES 
KRINIBL2 PHA POUR L'ECRITURE B'UN OCTET. 
PLA 
FRTNIBL3  STA WRLTCH,X HRITE LOAD 
ORA RDLTCH,X NRITE BYTE 
RTS 
LELLC sn 
# POSTNIBL: DECODE 342 NIBBLES 


* 


* 


POSTNIBL 
POSTNIBI 
POSTNIB2 


* 





{6 BITS) OOXXXXXX EN 


256 OCTETS (8 BITS) 
RS ee 


LDY #$00 

LOX 48556 

DEx 

BMI POSTNIBI 
LDA NIBLEBUF, 
LSR NIBLBUF2, X 
E@ 

LSR NIBLBUF2,X 
ROL 

STA (BUFPTR),Y 


INY 
CPY COMPTEUR 


BNE POSTNIB2 
RTS 





FAITS-EN 85 D'UN COUP... 


ENCORE UNE FOIS S.V,P 

DECODE CEUX DU BUFFER PRIMAIRE 
ET CEUX DU SECONDAIRE 

SELON LA METHODE DU 6+2 


BUFPTR DONNE L'ADRESSE DE LA 
PAG OU 

SONT RANGES LES OCTETS 
UTILISABLES 

FAIT 4 FOIS 86 NIBBLES 

CK ? 
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# READ : 
194 * 


#=— 


READ 
NAITDATA 


NSITDATAI 


WAITI 


WAIT2 


NAIT3 


DATABLOC 


PATABL2 


L8913 
LB8915 


LB925 


2892F 


18939 


* RDADR 


ADADR 


LIT UN SECIEUR DE DATAS 
DEPUIS LE DISK ET STOCKE 
DANS LES NIBBLE BUFFERS 


RE 0 0 0 mm = 


+520 


RDERR 
ROLTCH,X 
KAITDATAI 
4$D5 


NAITDATA 


RDLTCH, X 
NAIT2 
f$AA 
RAITI 
4556 
RDLTCH, X 
RAIT3 
$$AD 
HAITI 


#$00 


COMPTEUR 
ROLTCH,X 


DATABL2 
$8hA00, Y 
COMPTEUR 
NIBLBUF2,Y 
DATABLOC 
COMPIEUR 
RDLTCH,X 
18915 
$BAÛO, Y 


COMPTEUR 
NISLEUF,Ÿ 


LB913 


" RDITCH,X 


L8925 
$BA00,Y 


RDERR 


RDLTCE,X 
1892F 
#$$0E 


RDERR 


RDLTCH, X 
18939 
#$AA 
GOODRD 





{LE 2ND D'ABORD DE HAUT EN BAS} 
(LE ÎER ENSUITE DE BAS EN HAUT) 





LIT UN DATA 
EN FAIT, ATTEND LE PROLOGUE 
D5/AA/ AD 

CE N'ETAIT PAS SON DEBUT, ALORS 
RE-LIT 


ON ATIEND LE 2EME MORCEAU 


IL EST FAUX ??? 
PREPARE LE COMPTEUR À 86 ($56) 
PUIS LA FIN DE CE PROLOGUE.,. 


C'EST Ça ? 

LE PROLOGUE EST LU, AUTOUR DES 
86 NIB. 

QUI SERONT MIS DANS LE BUFFER 
SECOND. 

ET RANGES DE HAUT EN BAS 
LECTURE D'UN DATA DEPUIS LE 
DISK 

JUSQG'A CE QU'IL SOIT 
CONVENABLE 


QU LE RANGE-T-ON CE NIBBLE ? 
A CET ENDOIT DANS LE BUFFER 
SECONDAIRE. 

IL EN RESTE À LIRE: 
ALLONS-Y 


ALORS 


DANS L'ATTENTE D'UN DATA 
C@NVENABLE 
C'EST RATE, 
CASE (!) 


IL LUI MANQUE UNE 


ON LE RANGERA QU CE NIBBLE ? 
ICI DANS LE BUFFER PRIMAIRE 

OU ILS SERONT STOCKES DE BAS EN 
HAUT 

ON EN l'EUT 256, SOIT 342 AU 
TOTAL 


LECTURE D'UN CHECKSUM 

CE BYTE EST TO8 MOCHE ! 
COMPARE AVEC CELUI CALCULE EN 
CHARGEANT 

ERREUR, ILS S@NT DIFFERENTS !:i! 


ON LIT UN DATA... 

BOUH QU'IL EST LAID ! 

...QUI DOIT ÊTRE LE DEBUT LE 
L'EPILOGUE 

ENCORE UNE ERREUR POSSIBLE 
HEUREUSEMENT, ÇA SEMBLE ETRE 
BON... 

ICI, OK S'ATTEND À Un $AA 


C'EN EST UN ? (O/N) 

LA LECTURE EST TOOT À FAIT 
CORRECTE !!! 

NON, ALORS ON LE SIGNALE, 
PART... 


ET ON 


LIT LE CHAMP ADRESSE 


LDY 
STY 
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Re em ——— 


#$FC 
COMPTEUR 





MISE À JOUR DU COMPTEUR 


260 
261 
282 
263 
264 
265 
266 


267 


268 
269 
270 


271 
272 


273 


274 
275 


276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 


287 


288 
289 
290 
291 


292 


293 
294 


295 
296 
297 
298 


299 


300 
301 
302 
303 


304 
305 
306 
307 


308 
303 
310 
311 
312 
313 
314 
315 
316 
317 
318 
315 
320 
321 
322 
329 
324 
325 
326 
327 
328 


LB948 


AAITDAT 


KAITDIi 


WAITD2 


BEL 


BNE 


NAITD3 


ADRBLOCK 
ADRBLOC2 


ADRBLOC3 


* ATIEND $DE $AA ,; L'EPILOGUE, 


1B98B 1IDA 
BEL 


CÆ 
BNE 


LB995 
BPL 
CÆ 


BNE 
GCO8 RD CIC 
RTS 


* 


WAITDAT 
COMPIEUR 
RDERR 


RDLTCH,X 
RAITDAT 


$$D5 
LB948 
RDLTCH, X 


RAITD2 
#52A 


RAITDI 


8503 
ROLTCH: X 


RAITD3 


#596 
NAITDI 


4500 
L27 


RDLTCH, X 
ADR8LOC2 


COMPIEUR 
RDLTCH,X 


ABRELOC3 
COMPTEUR 


TE, Y 
227 


ADRBLOCK 


RDERR 


RDLTOH,X 
LB98B 


#$DE 
RDERR 


RDLTCH, X 
LB995 


#$$AA 
RDERR 





IL Y À EU TROP D'ERREUR !!! 


LECTURE D'UNE DONNEE DU DISK 
SEULEMENT SI ELLE N'EST PAS 
CONVENABLE 

ÇA DOIT ETRE $D5 POUR LE 
PROLOGUE 

ERREUR, ON RE-ESSAYE 

C'EST BON, ON CONTINUE..;, 
LECTURE DU DEUXIEME OCTET D'UN 
PROLOGLE 

LE 8Ë£ME BIT DOIT ETRE À 0 

LE PROLOGUE DU CHAMP ADRESSE: 
D5/Aà/96 


RE-ESSAYE, MAIS C'EST PAS 


-ILLIMNITE ! 


C'EST POUR LA PROCHAINE ETAPE 
CETTE LECTURE DOIT DONNER $96 
ET DONC 


MARQUER LA FIN DU PROLOGUE 
TOUT EST À REFAIRE... 


LECTURE D'UN DATA 
S'IL N'EST PAS VALABLE 
DEBUT DU CODAGE... 


LE VOLUME,PISTE, SECTEUR, 


CHECKSUM SONT 

CODES SUR DEUX OCTETS DANS LE 
CHAMP 

ADRESSE. D'OU LES 2 LECTURES... 
+-.SUITE DU CODAGE.. 


IL Y AVAIT $3 POUR LIRE LES 4 
DONNEES 

SI Y-0 VA QUAND MEME LIFE, 
ARRETE À $FF 


SI LE DERNIER (CHECKSUM) <> 0, 
ERREUR! 


SINON, C=1 
MAINTENANT, ON LIT 
L'EPILOGUE... 

CET OCTET N'EST PAS DIGESTE 
LOXXXXXXX) 

S'IL L'EST, ÇA DOIT ETRE $DE 
SINON, IL Y À EAREUR 


EN FAIT, ON NE VA LIRE QU'ON 
PARTIE LE 


L'EPILOGUE: $DE/$AA/($EB] 


LE CHAMP ADRESSE N'EST PAS BON 
BONNE LECTURE !, PAS D'ERREUR 
(C=0) 


* SEEKABS:FOSITIONNE LA TETE DE 





* LECTURE SUR LA PISTE 

# DESIREE 

Re 

SEEKABS  STX SLOTNUM SAUVE LE NUMERO DE SLOT 
STA TRKN LA PISTE DE DESTINATION 
CMP CURTRK ON Y EST DEJA ? 
BEQ LB9FC OUI, ALORS C'EST FINI. 
LDA 8500 ON MET À JOUR LE COMPTEUR 


STA COMPIEUR 


183A0 LDA 
STA 


SEC 


CURTRK 
L27 


TRAKN 


OU ON EST.., 


À QUOI ON RETIRE... 
OU ON VA 
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SYNCHRONISATION.. 
323 BEQ IB9EA IDENTIQUE, ALORS FHASE X OFF 404 STA WRMOLE, X CELA PERMET D'ECRIRE 
330 BCS LB9C0 ON EST TROP LOIN ! L'ACCUMULATEUR 
331 EOR 45FF ON N'EST PAS ASSEZ2 LOIN 405 CMP RDLTCH, X 
332 INC CURTRK ALORS PASSE À LA PROCHAINE 406 PHA L'APPLE VA TROP VITE POUR LE 
PISTE... DRIVE, IL 
339 BCC LB9C5 TJS PRIS 407 PLA NE FAUT PAS L'OUBLIER ! 
334 LB9C0 ADC #$FE 408 
335 DEC CURTRK PASSE À LA PRECEDENTE PISTE. .- 408 * ECRIT LE PROCNAIN NIBBLE D'AUTO 
336  LB9CS CMP COMPTEUR 410 * SYNCHRONISATION. IL Y EN À Y... 
337 BCC LBSCE 411 
336 LDA COMPTEUR 412  WRIT3 USR WRITEND 2*12 HS. D'ATTENTE... 
339  LB9CB cMP #$0c 413 JSR WRITEND 
340 Bcs L8e9D0 914 STA #RLTCH,X WRITE LOAD 
341 TAY 415 CÆ RDLTCH, X NRITE BYTE 
342 L89D0 SEC PHASE X ON, LE BRAS VA BOUGER ! #56 Re 
343 JSR LB9EE VASDE FAIRE FOHANCERT DE "PLACE ER" are Ex AU PROCHAIN NIBBLE 
349 LDA DATAL,Y CHARGE LE DELAI 418 BNE WRIT3 S'IL EN RESTE... 
345 USR $BA00 ET VA ATTENDRE... 419 
346 LDA 227 420 LDA #$DS ECRITURE DU PROLOGUE DU CHAMP 
347 LC CæÛ0 -> PHASE X OFF D Asece 
348 JSR LB9F1 VA LA METTRE OFF CETTE PRASE 421 JSR ANIBLE CONSTITOE DE $D5/SAA/S96 
Lie 423 LDA #$AA 
349 LDA DATA2,Y CNARGE UN DELAI POUR LES 923 JSR KNISLE 
HOUVEMENTE 424 LDA 4596 
350 JSR NAITARMOV DU BRAS, ET EXECUTE-LE... 425 JSR WNIBLB 
331 INC COMP TEUR IL EN RESTE ? 426 LDA VOL PUIS COMME L'USAGE LE VEUT, IL 
352 BNE LB9AD IL FAUT ENCORE VERIFIER (TIS pu 
353 PRIE? 427 JSR WBYTE ECRIRE LE VOLUME, LA PISTE, LE 
354 * BOUGE LA TETE DE LECTURE SECTEUR 
355 428 £DA TRKNO 
356  LBŒA JSR WAITARMOV  ATTENTE... 429 JSR RBYTE 
357 cu C=0 DONC PHASE @€FF 430 LDA SECTNO 
358  LB9EE LDA CURTRK 431 JSR NBYTE 
359  LB9FI AND #$03 N° PISTE: 000000XX -> NUMERO DE 32 
PHASE 433 LDA VOL ON FAIT LE CHECKSUN DU VOLUME, 
360 ROZ 00000xxC (C=0 :OFF , C=i :ON) 434 EOR TRKNO DU NUMERO DE PISTE 
361 ORA_SLOTNUM AJOUTE LE NUMERO DU SLOT 435 EOR SECTNO DU NUMERO DE SECT. 
362 TAX 438 PHA ON LE SAUVE POUR USAGE 
263 LDA PHSOEF, X MET ON OU OFF LA PHASE REQUISE ULTERIEUR 
364 LDX SLOTNUM REPREND LE NUMERO DU SLOT 437 LR PUIS ON CONTINUE LE CODAGE 
365 LB9FC RTS 438 ORA BUFPIR ON À ALORS LE 1ER OCTET DU 
366 CHECKSUM 
367 439 STA WRLTOR, X QUE L'ON ECRIT... 
368 Panne nn MM MMS SR ESS EEE EEEE= 440 LD2 RDLTCH, X 
369  * BOUCLE D'ATTENTE POUR LE 441 
370 * MOUVEMENT DU BRAS EN UNITES DE 442 PLA REPRENDRE LE RESULTAT 
371 * 100 MICRO SECONDES PRECEDEMENT SAUVE 
372 * mnnnnnenns 443 CA ÉSAA POUR OBTENIR LE 2EME OCTET DU 
373 CHECKSUM 
374 ORG $BA00 444 JSR KNIBLA (TJS 2 OCTETS DANS LE CHAMP 
375 G8J $8A00 ADRESSE) 
376 445 
377 446 LDA #$DE PUIS ON FINI ENFIN PAR 
378 WAITARMOV LDX #$11 2 CICLES L'ÉPILOGUE 
379  WIRMV DEX 2 CYCLES 447 JSR NNIBLE 
380 BNE NTRMV 3 CYCLES -> (2+3)*15+2#2=79 448 LDA #5$AA UN EPILOGUE, C'EST $DE/S$AA/$EB 
ce, 449 JSR NNIBLB 
381 INC MONTIME IL DOIT Ÿ AVOIR LE COMPTEUR DE 450 LDA 4SF8 
LS 451 JSR NNIBLB 
382 BNE WTRMVI QUI SE TROUVE DANS L'IOB (6*3 = 452 Are 
3RGrE 4 453  NRIT4 LDA RDMODE,X ON S'ARRÈTE D'ECRIRE 
383 INC M@NTIME+1 454 LD A RDLTCH,X 
384  NTRMVI SEC 2 CYCLES (92) 455  KRITEND RTS ET ON RENTRE.. 
385 SBC #501 4 CYCLES (96) 456 
386 BNE NAITARMOV SOIT TOUJOURS À LA FIN ENVIRON 457 MAYTE pi ROUTINE QUI ECRIT UN OCTET EN 
100 SEC DOUBLE 
383 RTS 958 LSR CODE LES INFO. ABR. EN BITS 
388 PAIRES ET 
389 459 ORA BUFPTR IMPAIRES, ET LES ECRIT TOUT LES 
390 tem mme 32 LSEC 
Ep nn eng | 2 ie Re 
$ 461 CMP RDLTCR,X WRITE BYTE 
393  *- 462 PLA 
39 463 NœŒ UN NCP PREND 2 CYCLES 
395 CRG $BCS6 464 NC DONC GN ATTEND 6 CYCLES... 
396 e8J $8c56 465 Nœ 
27 466 ca #$AA $AA = +#10101010 
398 467  WNIBLA NC 
399 RRTFORM SEC 468  ANIBLE Nœ 
400 LDA WRLTCH, X TESTE S'IL Y À PROTECTION À 79 
L ‘ECRITURE 470 PLA 
401 LDA ROMODE ,X 471 STA NRLTCH, X ECRIRE LE DEUXIEME OCTET 
402 BMI WRIT4 IL Y EN À UNE, ALORS ARRETE 472 Qæ RDLTCH, X 
L' OPERATION 173 . 
403 LDA 4$€F DEBUT DE L'AUTO- 


Suite de RWTS page 26 = 
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OFFRES SPECIALES BOUTIQUE IEF 
Pour les LECTEURS de POMS 


EXTENSION MAC 


Extension 128 K à 512 K pour MAC 


Garantie 1 anl.E.F. 


Prix spécial lecteur POM'S 3 362 Frs H.T 
3 990 Frs T.T.C 


{Nous consulter pour extensions supérieures) 


FLOPPY DISK cxInon 


e487TPI 
de 1 ° 40 pistes 
5" 1/4 compatible Apple lle et {lc RE nca 
+ 169 Ko sous DOS spécial 
< ultra sifencieux 
e délecton de piste © par phota détecteur 
e.vitesse uitra Stable par moteur à entraînement direci 








DRIVE seul : 990 Frs H.T 


1m Pts TAC 


DRIVE + câble : 1 080 Frs H.T 


1 280 Frs T.T.C 


DRIVE + câble + boîtier : 1 172 Frs HT 
LASOErETTE 





{prix par quantité sur demande) 
1/2 hauteur - haute fiabilité « garantie 1 an 





Ce lecteur de disquette à été homologué 
par la FRAMIF, l'Aérospatiale, le club Thomson, etc... 


[F LA O M O S = (Urgent quantité limitée) 


- Carte 80 colonnes étendue 990 Frs T.T.C 

Disquettes 51/4 9,90 H.T par boîte de 10 (11,75 Frs T.T.C) 
Moniteurs 12° haute résolution vert 990 Frs T.T.C 

— Promo fic Noel : Apple Ilc + Moniteur + Souris + Logiciel : 9 990 T.T.C 
— Promo MAC Noel : MAC étendu à 512 K :19 990 Frs T.T.C 








| 


BOUTIQUE L.E.F. : 403, rue de Vaugirard (porte de Versailles) 75015 PARIS Tél. : 48.28.06.01 


Nom: SAUT RASE PR à Prénom: are : Téi: 
Adresse! fersaiessioun pans 
Société: ....... RATER À Profession: 


Je passe commande de : 


O Extension MAC à 3 990 Frs T.T.C EU} PROMO 4 a smmmmiez 2e am mou te cartes des 4 
MiFISppYAphleimodele Pise 2 on men + co moine 





Je joins un chèque d'acompte de 20% soit: Frs his 
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RWTS 2 


S © © y où En de Co A be 


ke 


GKRE 


BRASGSISRRLERE 


& 


(Assembleur BigMac) 


tthitiiiiititiiiiiitttéiiittiittts 


* * 
* OISK II , 
* R£EAD/NRITE TRACK-SECTOR 2 
né ($BD00.BEAE} : 
“ * 
* © PAR APPLE COMPUTER * 
* * 
* DESASSEMBLE PAR P. NEVEU , 
* * 
ARSDIDISISDIDIIISINRNIIIINSIRIISÉ 


ORG $8D00 
O8J $8D00 


ÉmmamesEss ee er en ee een ce 0 re 


L2 





* LABELS 

+ 

famsssssz=2= 

MUIOROFF  EQU $C088 ETEIND LE MOTEUR 

IOTORON  EQU $C089 ALLOME LE MOTEUR 

DRVOEN EQU $CU8A BRANCHE LE DRIVE 1 

DRVIEN ECO $c08B DRIVE 2 

RDLTCH EU $c08c SWITCH DE LECTURE DATA 

RRLTCH EQU $C08D SWITCH D'ECRITURE DATA 

ROMODE SQU $CO8E SNIICH POUR MODE LECTURE 

NRMODE EQU $Co8r ECRITURE 

PHSŒE EQU $c080 ZONE ALLUMANT OU ETEIGNANT LES 4 
PHASES 

* ( $C080.C087 } 

PRENIBL  EQU $8800 NIBBLELIZE POUR ECRIRE APRES. 

WRITE EDU $B82A ECRIT LES BUFFERS PRIMAIRE + 
SECONDAIRE 

POSTNIBL EQU $B8C2 DECODE 342 NIBBLES EN 256 OCTETS 

READ EQU $B88C LIRE UN SECTEUR DU DISK ->NIBBLE 
BUFFER 

RDADR EQU $2944 LIRE LE CHAMP ABRESSE 

SEEKABS  EOU $89A0 TETE DE LECTURE SUR LA PISTE 
DESIREE 

WAITARMOV EQU $HAO0 ATTENTE POUR MOUVEMENTS DU BRAS 

DSKFORM  EQ@U $AEAF ROUTINE DE FORMATAGE 

DRVOTRK  EQU 50478 TOUT CÊLA SE TROUVE CACHE DANS L 

DRVITRK  EQU $04F8 TROUS DE LA PAGE JEXT 

SLOT EQU $05F8 LE NUMÉRO DE SLOT 

CURTRK EQU $0478 LE NUMERO DE LE PIS1E ACTUELLE 

SEEXCNT  E00 $06F'6 

RETRYENT ECO $0578 LE COMPTEUR D'ESSAIS 

IC8PL. EQU 598 L'ADRESSE DE LA TASLE IOB 

NONTIME  £QU $46 

IC8PH EQU IOBPL+] 

PTRSDEST  EQU $3C 

DEVCTBL  EQU PTRSDEST 

œUuM £Qu $2c 

SECT ERU CSuMs1 LE NUMERO DE SECTEUR 

TRKN £EQU 524 PISTE DE DESTINATION 

DRIVNO EQU $35 LE NUMERO BE DRIVE 

TRACK EC SECT+ LE NUMERO DE LA PISTE 

VOLUME EQU TRACK:+1 LE NUMERO DE VOLUME DU DISK 

COMPTEUR  EQ0 526 POUR LE BUFFER SECONDAIRE 

IBDERR EQU $40 ERR! UNE CHOSE ANORMALE S'EST 
PRODUITE 

IBVMME EQU $20 ERR! LES VOLUMES LUS / VOULUS 
DIFFERENT 

TBNPER EQU $10 ERR! DISR PROTEGE CONTRE L'ECRITI 

PnmMRE==ERRSEMEMMSEZSSESESSSSESE 

À au ui 0 00 08 once Guen ee meme ee en 0 mm ee mm mm mm mme 

STY IOBPL AVANT D'ENTRER, A&Y POINTENT SUR 
L'r08 
STA ICBPH 





LEY #502 

STY SEEXCNT 
LDY #$04 

STY $04F8 

LDY #1 

LDA (IOBPL),Y 
TAX 

LX #$0F 


CHARGE LE NUMERO DE SLOT 


CHARGE LE NUMERO DU PRECEDENT 
SIOT, COMPARE 

CMP (IOBPL),Y 
BER SAMESLOT C'EST LE MEME, PAS DE PROBLEME 
* ON UTILISE UN NOUVEAU SLOT. 

* ATTENDRE L'ARRET DU DRIVE. 

* POUR LE SAVOIR, ON LIT LES 

#* DATAS DU DISR. ILS DOIVENT ETRE 

* LES MEME PENDANT AU MOINS 9 


* MICRO-SECONDES 


TXA SAUVE LE NOUVEAU NUMERO DE SLOT 
PHA 
LDA (IOBPL),Y CHARGE LE ‘VIEUX' 
TAX 
PLA 
PHA 
STA (IOBPL},Y SAUVE LE NOUVEAU 
LDA RDMCDE, X METS-TOI EN MODE DE LECTURE 
STILION LDY #$$08 LES DATAS DOIVENT RESTER STABLES 
LDA RDLTCH, X PENDANT 96 HSec 
NOTSURE CM RDLICH, X LES DONNEES CHANGENT ? 


BNE STILLON 
DEY 
BNE NOTSURE 


OUT ::..: 


STABLE DEPUIS SUFFIS2MENT DE 
TEMPS 7? 


* LE PRECEDENT DRIVE EST ETEINT MAINTENANT 


PLA REPRENDRE LE NOUVEAU NUMERO DE 
DRIVE 
TAX 


#* ON TESTE SI LE MOTEUR EST ALLUME, SI NON, ON LE DEMARRE 


SAMESLOT LDA RDMODE, X ON SE MET EN MODE LECTURE 
LDA RDLTCH, X 
LDY 4508 
SSLOTI LDA RDLTCAH, X 
PHA ON AITEND ENCORE UN PEU AVANT DE 
RELIRE 
PLA 
PHA 
PLA 
STX SLOT DELAI, ET ÇA PEUT ETRE UTILE PLUS 
TARD 
CMP RDLTCH, X VERIFIE SI ÇA MARCHE 
BNE SSLOT2 CA TOURNE, LES DATAS ON CHANGE ! 
DEY CONTINUE A ATTENDRE QUE ÇA CHANGE 
BNE SSLOTI SI CE N'EST PAS FINI 
SSLOT2 PH SAUVE LE RESULTAT DU TEST 
LDA MOTORON, X ALLUME LE MOIEUR 
LDY #6 COPIE TOUS LES POINTEURS 
PTRMOV LDA (IOBPL),Y 
STA PTRSDEST-6, Y 
INY 
ceY #$0A ILS SONT TOUS COPIES ? 
BNE PTRMOV 
LDY #$03 
LDA (PTRSDEST),Y 
STA $47 
LDY #2 MAINTENANT, AU TOUR DES PARAMETRES 
LDA (IOBPL),Y DRIVE 1 OU 2 ? 
LDY #$10 C'EST LE MEME DRIVE QUE CELUI 
UTILISE 
CP (IOBPL),Y AUPARAVANT ? 
BE CK QUI, PAS LA PEINE D'ATTENDRE LE 
MOTEUR 
STA (IOBPL),YX MAINIENANT, ON UTILISE CE DRIVE 
EL? SIGNALE QU'IL ETAIT ETEINT (TEST) 
LOY #500 
EH 
Le RR 
BCC OK1 Cæÿ : DRIVE 1 UTILISE AVANT 
LDA DRVOEN, X ENGAGE LE DRIVE ] 
BCS DAVSEL C=1 : DRIVE 2 UTILISE AVANT 
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150 
151 


152 
153 
154 
155 
156 
157 
158 
159 
160 
181 
182 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 


175 
176 
177 
178 
179 
180 
181 
182 
183 
194 
185 
186 
167 
188 


189 
190 
191 
192 
193 
194 
195 


196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 


216 
217 
218 
219 
220 
221 
222 
223 





1 
DRVSEL 


LDA DRVIEN, X 
ROR DRIVNO 


BNE DRVSEL2 


LDY 47 
DRVSELI JSR WAITARMOV 
BNE DRVSELI 
LDX $S05F8 


LDY #4 
LDA (IOBPL),Y 
USR MYSEEK 


DRVSEL2 


PLP 

BNE TRYTRK 
LDY $47 
BPL TRYTRK 


* LE MOTEUR ETAIT 


MOTOF LDY 4$12 


CONN AIT DEY 

BNE CONWAIT 
INC MONTIME 
BNE MOTOF 

INC M@NTIME+1 
BNE MOTOF 





ENGAGE LE DRIVE 2 
SAUVE LE NUMERO DE DRIVE OTILISE 
DANS C 


BOUCLE D'ATTENTE 


CHARGE LA PISTE 


ET VAS-Y 


LE MOTEUR ETAIT ALLUME ? 
SI OUI, NE PAS ATTENDRE 


"OFF', ATTENDRE @U'"IL PRENNE DE LA VITESSE 


DELAI DE 100 MICROSECONDE À CHAQUE 
FOIS 


*# LE DISX EST À LA BONNE VITESSE, 


* ON PEUT LIRE.., 


* SI CE N'EST PAS LA COMMANDE DE 


* FORMATAGE, 


TRYTRK LDOY #$50C 

LDA (IOBPL),Y 
BEQ GALLSIONE 
CMP 4$04 

BEO FORMDSK 
RCR 


BCS TRYTRK2 


JSR PRENIEL 
LDY 4$30 
STY RETRYENT 
LDX SLOT 

JSR RDADR 
BCC RDRIGAT 
DEC RETRYCNT 
BPL TRYADR 
LDA CURTRK 


TRYTRK2 


TRY ADR 


TRYADR2 


TRYADR3 


4560 
USR SETTRK 
DEC SEEKCNT 
BE@ DRVERR 
LOA $f4 

STA $04F8 
1500 
JSR MYSEEK 


GOCAL JSR MYSEEK 


1RYTRK2 


LOCALISER LE SECTEUR 
* CORRECT POUR L'OPERATION 


PRENDRE LE NUMERO DE CODE DE LA 
COMMANDE 


SI C'EST £&ERO, C'EST TERMINE... 
FORMATÉ LE DISK ? 

EH OUI ! 

C=1 POUR LIRE, 
A SAUVER 

POUR L'ECRITURE, 
NIBBLES. 

ON VA DONC EN FAIRE... 
SEULEMENT 48 ESSAIS 


C=0 POUR ECRIRE 


IL FAUT DES 


MET LE NUMERO DE SLOT DANS X 
LIRE LE CHAMP ADRESSE 

ÇA À MARCHE ! 

ENCORE UNE ERREUR ! 

HMM ! ÇA PASSE POUR CETTE FOIS... 


SAUVE LA PISTE QU'ON VEUT 
ON RE-CALIBRE ENCORE ! 


VA SUR LA PISTE 0 


ET CETTE FOIS-CI VA À LA PISTE 
CORRECTE 


# LE CHAWP D'ADRESSE EST BIEN LU 
* S'ASSURER QUE C'EST LA PISTE, 
* SECTEUR ET LE VOLUME VOULU. 


RDRIGAT LDY TRACK 
CPY CURTRK 


BEQ RITRK 


ON £ST A LA BONNE PISTE ? 


SI OUI, C'EST BIEN 


* LE DRIVE ETAIT SUR UNE PISTE 
* DIFFERENTE., ESSAYE DE 
+ RECALIGRER À PARTIR DE CETTE 


229 
230 
231 
232 
233 
234 
235 
236 
23? 
238 
233 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
286 
287 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 


280 
281 
282 
283 
284 
285 
286 
287 
288 
299 
290 
291 
232 
293 
294 
295 
236 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
319 
311 


# PISTE, 


DRVERR 


JMPTOL 


GAL LDONE 


FORMDSK 


* LE DRIVE EBT SUR LA BONNE PISTE, 


RTTRK 


LDA CORTRK 


JSR SETTRK 
PLA 

DEC $04F8 
BNE GOCAL 
BEQ TRYADR3 
PLA 
LDA 
PLP 
JMP HNDL£RR 
BEQ ALLDONE 
JMP DSKFORM 


#IBDERR 


LDY #3 

LDA (IOBPL),Y 
PRA 

LDA VOLUME 
LDY 4$0E 

STA (ZO8PL),Y 
PLA 

BE@ CORRECTVOL 
CMP VOLUME 
BEC CORRECTVOL 
LDA #IBVME 
BNE JMPTOI 


CBRRECTVOL LDY #5 


LDA (I08PL},Y 
$S8F88, Y 
CM $2D 

BNE TRYADR2 


# CORRECTSECT: 


ALLDONE 


HNDLERR 


ARIT 


PLP 

BCC ARIT 
JSR READ 

PHP 

BCS TRYADR2 
PLP 

LDX #0 

STX COMPTEUR 
JSR POSTNIBL 
LDX SLCT 

CC 

HEX 24 


SEC 
LDY #$0D 

STA {IOBPL), Y 
LDA M@TOROFF, X 
RTS 

JSR NRITE 

BCC ALLDONE 
#IBWPER 
BCS RNDLERR 


SAUVE LA PISTE DE DESTINATION 


ON VA RECALIBRER 

SINON; ON VA TOUJOURS ICI 
ON RETIRE LA PISTE ACTUELLE 
ERREUR ! 


VERIFIE LE VOLUME 


C'EST UN DISK ACCEPTABLE ? 
CHARGE LE NUMERO DE VOLUME VOULU 
SAUVE -LE 

CHARGE LE VOLUME ACTUEL 

ET SAUVE LE... 


REPRENDRE LE VOLUME ATTENDU 
TOUS LES VOLUMES SONT ACCEPTES 


C'ETAIT LE BON VOLUME 

CHARGE LE CODE DE L'ERREUR 
T@UJOURS PRIS 

VERIFIE SI C'EST LE BON SECTEUR 


C'EST PAS Ça ! 


Cæl : LIRE, CrÙ ECRIRE 

ALORS VA DONC LIRE... 

SAUVE LE STATUS DE LA LECIURE 
MAUVAISE LECTURE 


ON VA DECODER TOUS LES NIBBLE POUR 
AVOIR DE BEAUX OCTETS UTILISABIES 


C'EST @UEL SLOT AU FAIT ? 


AVEC LE PROCHAIN OCTET ÇA FAIT UN 
"BIT" 

INDIQUE UNE ERREUR 

DONNE LUI LE NUMERO D'ERREUR 


ARRETE LE MOTEUR... 
YA ECRIRE LES NIBBLES MAINTENANT 


PAS D'ERREUR. 
ERREUR ! HORREUR ! 


#* C'EST LA ROUTINE QUI CRERCHE LA PISTE N DANS LE SLOT X/16 


* IF DRIVNO<O THEN DRIVE 0 
#* IF DRIVNO>0 THEN DRIVE 1 


MYSEEK 


AASDO 


PHA 
LDY 4501 
LDA (DEVCTBL), Y 


BÇC SEEK 


JSR XTOY 

LDA DRVOIRK, Y 
BIT DRIVN 
8MI NASDO 
LDA DRVITRK, Y 
STA CURTRK 
LDA TRKK 


C'EST UN DISK À 2 PHASES ? 


CARRY = NOMBRE DE PHASES 


1 PHASE PAR PISTE ! 


SAUVE LA PISTE DE DESTINATION (*2) 
MET Y = NUMERO DE SLOT 


SI MOINS, DRIVE 1 


C'EST QU ON SE TROUVE 
ET ÇA, @U ON VA 
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312 BIT DRIVNWO 326  SETTRK PHA 

313 BMI ISDRVO 327 LDY #$02 CHARGE LE NUMERO DE DRIVE 
314 STA DRVITRK, Y 328 LSA (IOBPL),Y 

315 BPL GBRSEEK TOUJOURS PRIS 329 RCR MIS DANS CARRY 
316  ISDRVO STA DRVOIRK, Y 33€ ROR DRIVNO DANS DRIVNO 
317  GeseEK JMP SEEKABS REMUES-TOI 331 JSR XTOY 

318  XIOY Txa TRANSPERE X/16 DANS Y 332 BLA 

319 LSR 333 ASL 

320 LSR 334 BIT DRIVNO 

321 LSR 335 BMI ONDRVO 

322 LSR 336 STA DRVITRK,Y 

323 TAY 337 BPL SETRTS 

324 RTS 338  ONDRVO STA DRVOTRK, X 

325 339  SETRIS RTS 


— m2 





28 


58 LDA #$AA 
RWTS 3 5 romm 
= 60 
(Assembl eur BigMac ) € LDY #$56 NETTOIE LE BUFFER SECONDAIRE 
D'ABORD 
æ LDA 8500 ON COMMENCERA PAR LA PISTE 0 
1 & STA TRAXNO 
2 hd hté tés AIN ASS dis isiiiis 64 CLNIBUF STA NIBLBUF1,Y REMPLIR DE $S0G... 
+. à + EU DEY DE HAUT EN BAS POUR LE SECOND 
4 à * 66 B8NE CLNIBUF PASSE AU PROCHAIN.-- 
s % DISK II * 67  CLNIBUFI STA NIBLBUF,Y PUIS FAIT LE PRIMAIRE 
6 * F@RMATEUR SEIZE SECTEURS  * 
7 À (SBEAF.BFA6) % 68 DEY EGALEMENT. .. 
8 # J 69 BNE CLNIBUF1 JUSQU'A CE QUE ÇA SOIT TERMINE. 
9 * * 70 
10 + © PAR APPLE COMPUTER. , 71 LDA 8550 $50 = 80 
1 % * 72 JSR SETTRK 
12 #*  DESASSEMBLE PAR 2. NEVEU * 73 LDA 8528 $28 = 40, NOMBRE DE SYNC.BYTES 
13 % * 74 STA SYNCOUNT 
14 ht sh tt St id iiiiédiiiisiridésse 75 
15 76 + VA CHERCHER LA PISTE DESIREE 
18 FA 
17 78  TRKFORM LDA TRKNO PRENDRE LE NUMERO LE LA PISTE 
16 ORG $8EAF DESIREE 
19 c8J $8000 79 USR MYSEEK SE METTRE AU DESSUS 
20 80 JSR TRAXWRT VA FORMATER LA PISTE EN QUESTION 
22 f===—--OmPRnE ===" 81 LDA #$08 CHARGE UN CODE D'ERREUR AU CAS 
22 * OU... 
23 * LABELS 82 BCS ERROR S'IL Y À EU UNE ERREUR (C=1) 
2a * 83 LDA #$30 48 ESSAIS SONT PERMIS 
25 M mm 84 STA RETRYCNT SE LE RAPPELER ! 
26 85 LBEES sec C=] AU CAS OU ON NE POURRAIT 
27 L?D EQU $2D CONT INUER 
28  BUFPTR EQY $3E POINTE SUR LA PAGE DE BUFFER DE 86 DEC RETRYCNT TENTE DE RE-ESSAYER 
TRAVAIL 87 BEQ ERROR MAIS C‘EN EST TROP 
29  SECTNO EQU $3F NUMERO DE SECTEUR 88 JSR RDADR SINON, LIT LE CHAMP D'ADRESSE 
30 VX EQU 541 NUMERO DE VOLUME 89 BCS LBEES RE-ESSAYER SI C'EST RATE 
31 TRKNO EC $44 NUMERO DE PISTE 90 LDA L2D 
32 SYNCOUNT  EQY $45 91 BNE LBEES ERREUR 2?! 
33  IOBPL EQU 548 ADRESSE DE LA TABLE IOB æ JSR READ PUIS LIT LE RESTE DES DATAS 
34 33 BCS LBEES SI C'EST RATE 
35 RETRYCNT EQU $0578 COMPTEUR D'ESSAIS #4 INC TRANO PASSE À LA PROCHAINE PISTE 
36  WRITE ECU $B82A ECRIRE LES NIBBLES DES BUFFERS z LDA TRKNO 
37  READ EQU $B8DC LIRE UN SECTEUR ET STOCKE LES 96 CMP #$23 34 PISTES DEJA ? 
NIBBLES 97 BCC TRKFORM NON, ON CONTINUE 
38  RDADR EQU $B994 LIT LE CHAMP ADRESSE 3 CL SI, ALORS LE DISK EST FINI, SANS 
39 ERREUR 
40 * LE NIBBLE BUFFER: $BB00.BC55 99 BCC DSKDONE TJS PRIS 
4i 100 ERROR Ler #$0D MET LE CODE D'ERREUR 
42 NIBLBUF E@u $BB00 ADRESSE DE DEBUT DU BUFFER PRIM 101] STA (ICBPL/,Y DANS LA TABLE IOB POUR ETUDE 
43  NIBLBUFI EQU $BBFF ULTERIEURE 
44  NIBLBUF2 EOU $8C00 ADRESSE DE DESUT DU BUFFER 102 SEC ET SIGNALE LA EN METTANT C=I 
SECONDAIRE 103  DSKD@NE LDA MOTOROFF, X ETEINT LE MOTEUR 
45  WRTFORM EQU $BC56 CHAMP ADRESSE PENDANT 164 RTS ET RETOURNER D'OU ON VIENT... 
L'INITIALISATION 105 
46  MYSEEK EQU $BES5A CHERCHE LA PISTE 106 
47  SETTRK EQU $BE95 107  TRK#RT LOA #$00 COMMENCE AU 1ER SECTEUR DE LA PIS7E 
48 108 STA SECTNO L'ENREGISTRER 
49 MOT@ROFF  EQU 5C088 ETEINT LE M@TEUR 109 LDY #$80 128 SELF.SYNC À ECRIRE 
50 110 BNE LBF17 TJS PRIS 
51 111 LSF15 LDY SYNCOUNT 
LA 112 L8F17 JSR KRTFORM VA ECRIRE LE CHAMP D'ADRESSE 
53 bo BCS Z8r87 ERREOR !! 
54 114 JSR WRITE VA ECRIRE LE CONTENU DES BUFFERS À 
55  DSKFORM LOY 8503 PREND LE VOLUME DESIRE NIB. 
56 LDA (IOBFL),Y 115 BCS LBF87 HORREUR !.1 
57 STA VOL STOCKE-LE ICT 116 INC SECTNO PROCHAIN SECTEUR 
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117 LDA SECTNO ON EN EST O0 EXACTEMENT ? 163 BNE VRFERR1 
118 CMP 4510 16 SECTEURS DEJA ? 164 JSR R£EAD ET VA LIRE LE CHAMP DATA 
119 BCC L8F15 PAS ENCORE, ON CONTINUE 165 BCC TRKWAT IL N'Y À PAS D'ERREUR, SAUTE..- 
120 168 VRFERR1 DEC RETRYONT 
121 LDY #$0F IL Y À 16 SECTEURS À MARQUER 167 BNE LEF71 ON PEUT RE-ESSAYER 
122 STY SECTNO 168 SEC PLUS D'ESSAI À FAIRE, C'EST RATE 
123 LDA 4530 48 ESSAIS MAXINUM SONT AUTORISES 169 Z8F67 RTS ALORS RENTRE À LA MAISON 
124 STA RETRYCNT SIUCAE-LE POUR NE PAS L'OUBLIER 170 
125 LRF32 STA CARTE, Y Y MEITRE DES $30 AUSSI... 171 * ROUTINE QUI MARQUE LA CARTE DES 
126 DEY 16 EN TOUT 172 #* SECTEURS INITIALISES LORSQU'UN 
227 BPL L8F32 PAS UN DE MOINS ! 173 * SECTEUR EST VERIFIE 
129 174 
129 LOY SYNCOONT ATTENDRE SELON SYNCUONT 175  SCIMAÆ LDY L2D 
130  LAF3A JSR L8F87 12 CYCLEs 176 LDA CARTE, Y CHARGE POUR VOIR... 
131 JSR Lar87 +12 CYCLES 177 BMI VRFERR IL Y À ERREUR, C'EST NEGATIF ! 
192 JSR LBF897 +12 CYCLES 178 LDA #$FF C'EST BON, ON VA Y METTRE $FF 
133 PHA + 3 CYCLES 179 STA CARTE, Y VOILA, C'EST FAIT 
134 PLA + 4 CYCLES 180 DEC SECTNO AU PROCHAIN SECTEUR 
135 NŒ + 2 CYCIES 181 BPL VRPFYTRK ET VERIFIE LES TOUS 
136 DEY + 2 CYCLES 182 LDA TRKNO ON EN EST À QUELLE PISTE ? 
137 B8NE LBF3A + 4 SI PRIS, SOIT 51 AU T@IAL FAR 183 B8NE LSFA6 PAS À LA DERNIERE EN TOUT CAS 
TOUR 184 LDA SXYNCOUNT 
138 185 CP #$10 
139 JSR RDADR VA LIRE LE CHAMP ADRESSE 186 8ce L8587 
140 8cs LBF71 SI IL Y À ONE ERREUR 187 DEC SYNCOUNT SI SYNC.COUNT > 16 
14i LDA L2D LECTURE CORRECTE, ON EST AU 188 DEC SYNCOUNT 
SECTEUR 0 ? 189 LBFA6 CLC C'EST FINI, ET SANS ERREUR 
142 B£Q VERIFY QUI, ALORS VERIFIE 190 RTS 
143 LDA #SIO NON. 191 
144 CHE SYNCOUNT 192 # CETTE CARTE COMMENCE EN $8F A8 
145 LDA SYNCOUNT 193 #* ET CONTIENT LES SECTEURS 
146 sac 4501 194 * INITIALISES: 
147 STA SYNCOUNT 195 * $30 AVANT, $FF APRES. 
147 CM #$05 1968 * ( $BFA8.8FB7 }) 
149 BCS LBF71 197 
150 SEC 198 CARTE Ex * 
1512 RTS 199 
152 200 ZLST ŒF 
153 VREFYTRK JSR RDADR VERIFIE LE CHA#æ ADRESSE 201 
154 BCS VRSERR IL Y À EU UNE ERREUR 202 tétisiioensiiiiiiiiiiiisiisississs 
155  VERIFY JSR READ VERIFIS LE CHAMP DATA 203 #* . 
156 BCC SCTMAP PAS D'ERREUR, SAUTE PAR DESSUS 204 #* SOURCES: ? 
157  VRFERR DEC RETRYCNT R£-ESSAYE DEPUIS LE DEBUT 205 # 
157 BNE VRFYTRK 206 * -BENEATH APPLE DOS * 
159 Z8F71 JSR RDADR LIRE LE CHAMP ADRESSE 207 * -pOM'S 9 ad 
160 BCS VRFERRI ERREUR SUR LE CHAMP ADRESSE 1! 208 #* -CALL APPLE : ALL ABOUT DOS éd 
161 LDOA LD 209 %* 
162 CE #$0r 210 dddddédédédédddédédédééédédéddddé 
Vous avez un Apple lle avec Chat Mauve ou un l!c ? 
Vous disposez de Pascal 1.2 ? 
L2 + e \ 
Profitez de l'interpréteur ( O GO 
Re 3 Par Nicolas Monisartat 
ll s'agit d'un système graphique double-haute 
résolution écrit en Pascal 
COGO vous permet de manipuler des graphiques  Ceprugramme, destiné à résoudre des problèmes de 
grâce à un langage de description des objets  &éométie plane, comporte des instructions de 
- points, angles- et à l'emploi de fonctions primitives … Stockage sur fichier afin de permenre la reprise 
de manipulation très puissantes : cercle, tangente, d'un calcul. 
intersections, parallèles, etc. I} est ainsi possible 
de tracer des grilles, des cercles, des segments de NB : Sur l'Apple //c, l'affichage se fait en simple 
droie, des tangentes communes à deux cercles, de haute résolution. 
calculer des distances, dés angles... 
L'éditeur permnet une saisie rapide du langage. 
on insæuction “Es pe ie exécutée dès 150,00 F TTC, franco 
a saisie pour faciliter la mise au point, ou à 
po s se ee PO Bon de commande page 74 
au sein d'un programme. 
t o 
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Ce programme vous permet de décrypter des secteurs codés. 
Il contient différents algorithmes qui ont chacun pour 
fonction, d'une manière différente, d'effectuer le décodage 
d'informations cryptées. Il vous offre ainsi la possibilité de 
voir afficher en clair du texte codé mémorisé à un 
emplacement donné. Ceci est particulièrement utile, par 
exemple pour voir afficher les textes de nombreux jeux 
d'aventure, dont les réponses sont la plupart du temps 
cryptées par les auteurs du logiciel. 


we 5 : 
NN Le? 


ÉSÉE> 


Attention : cette fonction ne 
vous est procurée que pour vous 
permettre de profiter au maximum 
de vos logiciels d'aventure, en 
permettant d'aller plus avant grâce 
à l'aide foumie par le décodage. 
Au lieu d'en rester aux trois 
premières images du jeu, vous 
pouvez aller beaucoup plus loin et 
profiter bien plus pleinement de 
votre logiciel d'aventure. En 
aucun Cas cependant, vous ne 
pouvez utiliser cette capacité de 
décryptage en portant atteinte aux 
droits des auteurs du logiciel que 
vous êtes parvenu à décrypter. 


Il existe bien entendu d'autres 
utilisations possibles de ce logiciel 
dont le mode précédent ne 
constitue qu'un exemple : il vous 
est ainsi loisible d'appliquer des 
techniques de décodage à n'im- 
porte quel texte, qu'il s'agisse de 





Programme 


DECR.SOURCE 
(Assembleur Lisa 2.5) 


NDLR: les numéres de ligne nen 
affectés correspendent à des lignes 
vides ("44 ; ”, par 
exemple) . 


1 NLS 

£P2 $20 

£P2Z WNBLET+$S1 
EPZ WNBNOTH+$1 
EP£ WNDTOP+S] 
6 CA EPZ $24 

7 CV ÉPZ CH:51 
EPZ $38 

EP2Z $FI 

E@u 5300 

E@U 5303 

E@U $3EA 


14 SOFTEV E@U 53F2 


SORT 


Paul F mn 


fichiers, de programmes, ou d'in- 
formations quelconques. Vous 
pouvez également vous livrer au 
plaisir du décodage, en tant 
qu'exercice intellectuel. 

D'autre part, le programme vous 
permet également d'effectuer des 
vérifications sur des informations 
que vous avez préalablement 
codées, et de vous assurer que le 
cryptage est correct. 


Une fonction particulière permet 
par ailleurs de voir afficher très 
rapidement la totalité des carac- 
tères d'un secteur, sur l'écran de 
l'Apple; il est ainsi possible d'ob- 
tenir une vue d'ensemble de ce 
qui se trouve sur la totalité de la 
disquette; ceci vous permet 
notamment de déterminer à quels 
emplacements se trouvent les 
informations cryptées et celles qui 
ne le sont pas. 


15 IROLOC  EQU S3FE 

16 KBD EQU $C000 

17 KBDSTRB EQU SC010 

18 SEKR EQU $sco30 

19 TXTCLR EQU SC050 

20 TXTSET EQU TXTCLR+S1 
21 MIXCLR EQU TXTSET+S1 
22 IOWSCR EQU MIXCLR#S1 
23 MISCR EQL LONSCR+S1 
24 LORES EQU MISCR+S1 
25 HIRES QU LORES+51 
26 STROUT EQU SDB3A 

27 RNB EQU $EPAE 

28 PRNTYX EQU SF'940 

29 PRNTAX  EQU SF941 

30 PRELK2 EQ@U SFS4A 

31 BASCALC EQ@U SFECI 

32 86 EQu' SFCI0 

33 vs EQU SFC1À 

34 VTAB EQU SFC22 

35 HOME EQU SFC58 

36 LF RU SFC66 

37 RDKEY EQU SFDOC 

38 KEYIN E@U SFDIB 

39 SRBYTE  EQU SFDDA 


EOU $FDED 


Au début, vous choisissez une 
piste et un secteur à décrypter; 
lorsque cette sélection est faite, 
vous entrez immédiatement dans 
l'écran de décryptage, qui offre 
une vision complète des 256 
caractères présents dans le secteur 
choisi. 


Note : si le code du caractère est 
celui d'un caractère de contrôle, 
un point est affiché à la place du 
caractère. 


À droite et en haut du texte 
apparaît le filtre, élément fonda- 
mental du décryptage que vous 
allez ensuite appliquer au texte, et 
qui se compose de trois parties : 
octet 1, octet 2 et octet 3. 


En bas et à droite se trouvent deux 
mémoires, MEMI et MEM2, qui 
seront ensuite utilisées par 
certains algorithmes. 


En bas et à gauche de l'écran 
apparaît la commande, en carac- 
tères inversés. Vous sélectionnez 
les commandes à l'aide des 
touches "flèche à droite", "flèche 
à gauche”, et "Return". 


Faites votre choix à l'aide des 
deux flèches, et validez la com- 
mande choisie avec un "Retum”. 


41 SETINV  E@U SFE80 

42 SETNORM EQU SFES84 

43 OUTPORT EQU $FE95 

46 ; 

47 BELL EQU 587 

48 LARROW  EQU 568 

49 RETURN EQU S8D 

50 RARROW EQU 595 

$1 ESC EQU $98 

52 CTRLE EQOU 594 

55. 7 

56 ORA £QU 509 

57 £OR EQU 549 

58 ANO £QU 529 

59 ASL EOY S0A 

€0 LSR EQU $4E 

62 ; 

€3 JSR INITVECT 

64 INTRO JSR HOME 

55 JSR PRINT 

66 HEX 8D8D8D 

67 ASC EROGRAMME DE DECRYPTAGE" 

68 HEX 8D 

69 ASC Pam m 

70 HEX 9D 

71 ASC "DE SÈCTEURS CODES PAR * 

t Ô 
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Les différentes 
fonctions 


Pour décrypter, l'outil dont vous 
devrez user judicieusement est le 
"filtre". Il faut spécifier certaines 
valeurs dans les trois octets qui le 
composent, dans certains cas, ceci 
est cependant réalisé directement 
par le programme; aucune con- 
naissance du langage machine 
n'est requise pour l'utilisation des 
fonctions principales. Certaines 
fonctions, lorsqu'elles sont sélec- 
tionnées, agissent directement sur 
le filtre, et la modification effec- 
tuée sur ce dernier est affichée 
instantanément à l'écran. 


Ainsi, le “ou logique”, le "et 
logique" et le “ou exclusif", parmi 
les commandes, agissent direc- 
tement sur le filtre : le code 
opération en langage machine de 
l'opération choisie s'inscrit dans 
l'octet 1 du filtre. 


Pour agir directement sur le filtre, 
vous disposez de six fonctions 
accessibles par les commandes; en 
général, vous n'agirez directement 
que sur l'octet 2 du filtre; la 
modification des octets 1 et 3 du 
filtre est dangereuse et ne vous 
sera utile que si vous avez des 
connaissances suffisantes en lan- 
gage machine. 


Voici les six commandes qui 
agissent directement sur le filtre : 


+ _Incrémenter octet 1 : ajoute 1 
en hexadécimal à l'octet 1 du 
filtre; 





72 HEX 8D 
73 ASC "UTILISATION D'UN FILTRE" 
74 HEX 80 
75 ASC Terrasses sens si 
76 HEX 8B8D8D 
77 ASC PAR PAUL FRANCESCHI" 
78 HEX 88 
79 ASC" COBYRIGHT 19895." 
80 INV VERSION 1.1“ 
81 HEX 00 
84 : 
85 TESTO LOA ABD 
86 BPL TESTO 
87 BIT KBDSTRE 
88 : 
89 SCR2 JSR HOME 
90 JSR PRINT 
gi ASC "CE PROGRAMME VOUS 
PERMET D'AFFICHER LE” 
92 HEX 80 
92 ASC "CONTENU D'UN SECTEUR 
DE MULTIPLES FA-" 
94 HEX 8D 
95 ASC "CONS, EN COMMUTANT A 
CRAQUS FOIS UN" 
96 REX 80 
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+  Décrémenter octet 1 : enlève 1 
en hexadécimal à l'octet 1 du 
filtre; 

*__Incrémenter octet 2 : ajoute 1 à 
l'octet 2 du filtre; 

+  Décrémenter octet 2 : enlève 1 
à l'octet 2 du filtre; 

+ __Incrémenter octet 3 : ajoute 1 à 
l'octet 3 du filtre; 

+ Décrémenter octet 3 : enlève 1 
à l'octet 3 du filtre. 


Dans tous ces cas, vous devez 
sélectiorner la commande voulue, 
puis la valider avec "Return". En 
maintenant constamment la pres- 
sion sur la touche “"Retum”, on 
obtient une incrémentation ou 
décrémentation très rapide. 


OU logique 

Cet algorithme réalise un “ou 
logique” avec la valeur spécifiée 
dans l'octet 2 du filtre, pour 
chacun des 256 octets du secteur 
sélectionné. La valeur 09, qui est 
le code-opération du "ORA" en 
langage-machine, est placée dans 
l'octet 1 du filtre. 


ET logique 

Ce deuxième algorithme réalise un 
"et" avec la valeur spécifiée dans 
l'octet 2 du filtre. La valeur 29, 
code-opération du "AND", se 
trouve dans l'octet 1 du filtre. 


OÙ exclusif 


Idem. Réalise un “ou exclusif" 
avec la valeur placée dans l'octet 2 
du filtre. Le code-opération du 





97 ASC nFILTRE, MATERIALISE 
PAR TROIS OCTETS." 

98 HEX 8D 

95 REX 80 


ASC “VOUS POUVEZ AINSI 
VISUALISER UN SECT-" 


101 REX 80 

102 ASC “EUR AVEC UN FILTRE 
CLAIR, FDNCE, OPA-* 

103 REX 80 


ASC “QUE OU CRANCE: VOTRE 
VISION PEUT ÊTRE" 

HEX 68D 

ASC SFLOUE, PRECISE, DE 
HAUT, DE PRES , DE ” 

HEX 68D 

ASC "BIAIS, 

HEX 808080 

ASC FALORS, QUE L SECTEUR 
DESIREZ-YOUS LIRE?" 

111 HEX 8D8D8D 

INV * PISTE e 

HEX 8D80 

INV " SECTEUR ® 

REX 00 


OU SXTRALUCIDE..." 


"EOR"", 49, est placé dans l'octet 
1 du filtre. 


Echange de bits 


Cet autre algorithme effectue un 
échange entre deux bits dormés de 
chaque octet parmi les 256 du 
secteur choisi. On précise dans 
MEMI et MEM2 une valeur entre 
0 et 7, qui est le rang des 2 bits 
dont on veut effectuer la permu- 
tation. Avant d'utiliser cet algo- 
rithme, vous devez donc spécifier 
deux valeurs différentes, compri- 
ses entre 0 et 7, pour les deux 
variables utilisées par l'algo- 
rithme, MEMI et MEM2. Pour 
modifier ces valeurs, utilisez les 
commandes suivantes : 


°_ Incrémenter MEMI : ajoute 1 
en hexadecimal à la valeur 
actuelle de MEMI. 

+ Décrémenter MEMI : enlève 1 
à MEMI1. 

+ __Incrémenter MEM2 : ajoute 1 à 
MEM2. 

+  Décrémenter MEM2 : enlève 1 
à MEM2. 


Lire secteur 


Cette commande permet de lire et 
d'afficher le contenu d'un nou- 
veau secteur dont vous spécifiez 
les coordonnées. Un filtre neutre 
(EA EA EA) est appliqué à ce 
secteur, qui apparaît tel qu'il est 
mémorisé. 

Exécution 


Cette commande réalise l'affi- 
chage des 256 caractères du 
secteur choisi, en lui appliquant le 
filtre courant. 


LOA #!14 
STA INP2CH 
LOA #!15 

121 STA INP2CV 
JSR ASCONV2 
LOA ASCV2RES 
STA IBTRK 


LDA #!14 

STA INP2CH 
INC INP2CV 
INC INP2CV 
JSR ASCONV2 
131 LDA ASCVZRES 
STA JBSECT 


14i BLK "ESPACE POUR CONTINUER" 
HEX 00 
146 


147 TEST LDA K89 


32 





Piste suivante 


Cette option affiche les 256 
caractères du secteur de la piste 
suivant la piste actuelle; le numéro 
actuel du secteur est conservé. Le 
filtre reste le même. Cette option 
permet d'aller très rapidement de 
piste en piste, et de passer ainsi en 
revue toute la disquette. En 
maintenant constamment le doigt 
sur la touche “Return”, vous 
effectuez un parcours à grande vi- 
tesse de la totalité de la disquette. 


Secteur suivant 


Le secteur suivant est lu, en 
conservant le filtre courant. Ceci 
permet d'appliquer un même filtre 
à une série de secteurs, sans avoir 
de manipulation à effectuer. 


La démarche à suivre pour 
effectuer un décodage est géné- 
ralement la suivante : 


* on réalise le décryptage d'un 
secteur précis à l'aide d'un 
filtre donné; 

+ lorsque ce filtre a fonctionné, 
on l'applique à tous les sec- 
teurs suivants. 


Ctri-Z 


A tout moment, Vous pouvez 
effectuer une copie sur im- 
primante des caractères qui sont 
affichés à l'écran, avant ou 
surtout après décodage. Com- 
binée avec l'option "Secteur 
suivant”, cette commande permet 
de réaliser des listings de secteurs 
décodés, de façon très rapide et 
commode. 





148 8P L TEST 

149 BIT NBDSTRB 

150 : 

151 JSR HOME 

152 JSR PRINT 

153 ASC n ” 

154 ASC moseooosossonssssont 
155 REX 80 

156 ASC "” " 

157 ASC “* DECRYPFTEUR 1.0 »°* 
158 HEX 80 

159 ASC r ” 

160 ASC monnensnnannannenmett 
16 HEX 00 

162 JSR AFFTRSC 

163 UNP AFFS 


165 AFFTRSC LOA #4 


166 STA CV 

167 JSR VTAB 

168 LOA #0 

169 STA CH 

170 JSR PRINT 
171 ASC "PISTE * 
172 HEX 00 

173 LOA 18TRK 


Espace 


En appuyant sur la barre d'espa- 
cement, une incrémentation auto- 
matique de l'octet 2 du filtre est 
réalisée, en même temps que le 
filtre nouveau est appliqué aux 
256 octets du secteur choisi. Cette 
commande rend possible un test 
très rapide des différentes valeurs 
susceptibles d'être utilisées par les 
algorithmes “ou exclusif”, "et 
logique”, “ou logique”. Elle 
permet de tester les 256 valeurs 
(00 à FF) que peut prendre l'octet 
2 du filtre, de façon très rapide et 
sans manipulation. 


Ctrl-Reset 
Ramène au début du programme. 


Si vous utilisez pour la première 
fois ce programme, voici la 
manière la plus simple de 
procéder. 


Sélectionnez une piste et un 
secteur au hasard et réalisez-en 
l'affichage. 

A l'aide de la touche "flèche à 
droite”, sélectionnez l'option 
"Piste suivante”, et validez-la avec 
"Return". 


Appuyez sans arrêt sur "Return" 
pour obtenir une vision rapide du 
contenu de la disquette. Votre but 


174 JSR PRBYTE 
175 JSR PRINT 
176 ASC “ SECTEUR " 
177 NHEX 00 

178 LDA IBSECT 
179 USR PRBYTE 
180 RTS 

182 

183 AFFS LDA #0 

184 STA COMPT 
185 STA BUF 

186 LOA #$60 
187 STA BUF+$1 
188 

189 JSR RWTS 
190 JSR AFF.256 
192 

193 ZLDA #133 
194 STA CH 

195 LDA #2 

196 STA CV 

197 JSR VTAB 
198 JSR PRINT 
199 ASC "FILTRE" 
200 HEX 00 

201 LOA 4133 


est de trouver les emplacements 
du texte codé : vous les recon- 
naîtrez en facilement, car le texte 
codé ne présente en principe 
jamais plus de deux caractères 
consécutifs identiques ! 

Lorsque vous avez trouvé un 
secteur répondant à cette défi- 
nition, vous pouvez supposer que 
vous êtes en présence de texte 
crypté. 

La démarche consiste alors à 
effectuer le décodage du secteur 
supposé crypté. Vous allez utiliser 
à cet effet tous les algorithmes. 
Commencez par sélectionner le 
“ou logique", à l'aide de la touche 
flèche à gauche, et validez avec 
"Retum"; ensuite, il vous suffit 
d'appuyer sur la barre d'espa- 
cement pour obtenir un test du 
filtre avec la variable qu'il utilise, 
l'octet 2. Vous démarrez avec 
l'octet 2 à la valeur EA; faites le 
test pour les 256 valeurs possibles 
de l'octet 2. 

Si aucun texte n'est encore 
apparu, faites la même opération 
avec le "et logique”, puis le "ou 
exclusif”. Si cela ne marche 
toujours pas, testez avec 
l'algorithme d'échange de bits, en 
utilisant toutes les valeurs 
possibles. 

Si vous parvenez à afficher un 
texte, c'est que l'algorithme a 
réussi; dans ce cas, revenez à la 
valeur précédente de l'octet 2 (car 
la barre d'espacement incrémente 
systématiquement son contenu) à 
l'aide de la commande “décrémen- 
ter octet 2"; placez-vous ensuite 
sur l'option "secteur suivant” et 





202 STA Cf 

203 LA #3 

244 STA CV 

205 JSR VTAB 
206 JSR PRINT 
207 ASC " 
208 HEX 00 


212; 
213 :INITIALISE LE FILTRE ET L'AFPICHE 


214 LOA #$EA 
215 STA PILI 
216 STA FIL2 
217 STA FILS 
218 UJSR AF FIL 
Sais 

229 LDA #!33 
223 STA CR 
224 LOA #!20 
225 STA CV 
226 JSR VTAB 
227 JSR PRINT 
229 ASC "N.1 M.2* 
229 HEX 00 
230 : 

231 JSR AF.MEM 


233 : 
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vous pourrez visualiser les 
secteurs voisins avec ce filtre 
efficace. À chaque affichage, 
vous pouvez effectuer une copie 
du texte décodé avec "Ctrl-Z". 


e er 
pour contin” 


La liberté de manipulation du filtre 
qui vous est laissée vous permet 
de spécifier un "JSR" à un 
sous-programme de décryptage 
qui vous est propre, et tiendra lieu 
de filtre; placez pour cela le 
code-opération du “JSR" dans 
l'octet 1 du filtre, et son adresse 
dans les octets 2 et 3, dans l'ordre 
partie basse-partie haute. 


Insérez votre routine personnelle 
de décodage à partir de l'adresse 
$2000, en veillant à restituer les 
registres en fin de sous- 
programme. 


A titre d'exemple, nous avons 
trouvé les filtres permettant de lire 
les dictionnaires de Paranoïak, 
Incredible Hulk, Critical 
Mass. Vous comprendrez qu'il 
est difficile dans donner la liste 
dans ces colonnes. 


NB : Dans tous les cas, vous 
avez accès au vocabulaire du jeu 
qui n'est généralement pas codé, 
grâce à l'éditeur de secteur, et il 
est très simple d'en obtenir une 
impression avec Ctrl-Z. C 


234 LOA #0 

235 STA OPIND 
236 STA OPCA 
237 L8A #129 
238 STA OPCV 
239 LDA 118 
248 STA OPINDMAK 
241 JSR CPAFF 
242 MP OPTEST 


248 AFF.256 LDA #0 


249 STA CH 
250 STA COMPT 
251 LOA #8 
252 STA CV 
253 USR VTAB 
254 LOX #0 
255 AFSUIV LOA (BOF),Y 
256 HOP 

257 FILI NOP 

258 FIL2 NOP 

259 FILS NOP 

260 CHP #$80 
261 BLT >2 


Suite du source page 34 = 
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Une nouvelle disquette Pom's : 


P-Fermat j[ 


Sur Apple j{+ 48 Ko ou //e ParJ. Gouzy 


avec ImageWriter 


Ce programme s'utilise en complément d'un éditeur de texte, 
Apple Writer par exemple. Les textes à imprimer sont enrichis de 
codes de contrôle destinés à P-Format ]{, puis sauvegardés 
sur disquette en format texte. P-Format lit ce fichier et pilote 
l'imprimante. De nouvelles possibilités sont alors disponibles : 


Justification : 
Droite, Gauche, Totale, Centrée, Page paire à droite et impaire 
à gauche de façon automatique. La justification n'est 
pas perturbée par les caractères du type é ou 6. 


Polices de caractères : 
Changement simplifié pour passer du é français au { américain 


ou B allemand par exemple. 


Style d'impression : 
Simple ou double largeur, Gras ou non, Souligné ou non, 
en mode proportionnel, au sein dsne méme ligne sans perte 
de la justification. 


On peut obtenir en justification totaie, 
des caractères larges, des 
caractères gras, ainsi que des caractères 
soulignés. 


Mode Mathématique : 
s 
; «'F. Cx,Y) = fcost3,x + y) - 
È 


zf Lim dMx4+4e,y-6#) 
£+33 


Mode graphique: 
Frésentatien d’une Beucie d’as 


Censigne 
2 Cerrecteur Lcerrecteur ]——{ ampti 


Boucle de reteur 








.….tabulation, entête, numérotation des pages. 


P-Police }] 
Sur Apple //e 128 Ko 


Sur la même disquette, ce programme vous permet d'éditer en 
double haute résolution les polices de caractères personnalisées 
de lImageWriter. 


P-Format ][ et P-Police ]f : 200,00F avec documentation 
Bon de commande page 74 





262 CMP #5A0 381 BNE PRNTLOOP 499 “2 JSR CPAFF 
263 BGE >2 382 ; 500 JMP OPTEST 
264 :AFFICHE UN POINT 383 PRNTOONE INC ADRL 502%] CMP #RARRON 
265 :S$I CARACT DE CONTROLE 384 BNE FRSDNG 502 BNE >3 
268 : 385 INC ADRH 503 USR OPEFF 
267 LDA #$AE 386 ; 504 INC OPIND 
268 : 387 PRNDNO  LDA ADRL 505 LDA OPIND 
269 “2 JSR COUT 388 STA 5185,X 506 CM? OPINDMAX 
270 INY 389 LDA ADRH 507 BNE >4 
271 INC COMPT 330 STA $106.X 508 LDA #0 
272 LDA COMPT 391 ; sos STA OPINO 
273 CMP #!32 392 PLA 510 4 JSR OPAFF 
274 BNE AFSUIV 393 TAX 511 JMP OPTEST 
275 LDA #0 394 PLA She ‘3 CMP #RETURN 
276 STA COMPT 395 TAY 513 BNE >5 
277 LDA #0 396 PLA 514 LDA OPIND 
278 STA CH 397 PLP 515 CMP #0 
279 INC CV 398 RTS 516 BKE >1 
28e JSR VTAB 404 ; si7 INC FILI 
281 CPY #0 405 ASCONV PHA 518 JSR AP.FIL 
282 BNE APSUIV 406 ASL sis JMP @PTEST 
283 JSR SOUNCI 407 ASL 520 *5 CHP #$A0 
284 LOA FILI 408 ECC >1 521 BNE >6 
285 STA PEILI 409 PLA 523 JSR APF.256 
286 LDA FIL2 410 AND #$0r 522 INC FIL? 
287 STA PFIL2 411 CLC 524 JSR AP.FIL 
286 LOA FIL3 412 ABC #$9 525 UMP @PTEST 
289 STA PPIL3 413 JME >2 526 "6 CMP #CTRLE 
290 RTS 414 9} PLA 527 BNE OPTEST 
285 ; 415 ANS #50 528 JSR PRINT256 
294 BUF EPZ 56 416 *2 STA ASCVRES 529 UMP OPTEST 
295 COMPT BYT © 417 RTS 530 1 CMP #1 
296 NUMERO  BYT 0 419 ; 53] BNE >2 
297 ; 420 ASCVRES BYT 0 532 DEC FILI 
298 SAVA BYT 0 426 : 533 JSR AP.FIL 
299 SAYX BYT 0 427 ASC@NV2 LDA INP2CH 534 UMP OPTEST 
300 SAVY BYT 0 428 STA CH ses “2 CMP #2 
315 ; 429 LDA INP2CV 536 BNE >3 
316 ANTS LDA #DEVTPC 430 STA CV 537 INC FIL2 
317 STA IBDCTP 431 JSR VTAB 538 JSR AF.FIL 
318 LDA /0EVTPC 432 JSR RDKEY 538 JMP OPTEST 
519 STA IBDCTP+S1 433 JSR COUT 540 "3 CMP #3 
320 LDA /I0B 434 JSR ASC@NV 541 BNE >4 
321 LDY #108 435 LDA ASCVRES 542 DEC FIL2 
322 USR $3D9 436 ASL 543 JSR AF.FIL 
323 RTS 437 ASL 544 UMP OPTEST 
324 438 ASL 545 4 CMP #4 
325 1e8 BYT 1,560 439° ASL 546 BNE >5 
326 IBRVN BYT J,0 440 STA ASCV2RES 547 INC FIL3 
327 IBTRK BYT 0 441 JSR RDKEY 548 JSR AF.FIL 
328 IBSECT BYT © 442 JSR COOT 549 UMP OPTEST 
329 IBDCTP  BYT 0,0 443 JSR ASCONV 55005 CMP #5 
330 IBUFFP  BYT 0,660.0,0 444 CLC 551 BNE >6 
331 IBCMB BYT À 445 LDA ASCVRES 552 DEC FIL3 
332 1BSTATT BYT 0.0,$60, 1 446 ADC ASCV2RES 553 JSR AF.FIL 
333 DEVTPC BYT 0,1,SEF,SD8 447 STA ASCV2RES 554 UMP OPTEST 
335 ; 438 RTS 555 *6 CMP #6 
336 AF.FIL LOA #5 450 ; 556 BNE >7 
337 STA CV 451 ASCV2RES BYT 0 557 LDA #AND 
338 JSR VTAB 452 INP2CH  BYT © 558 STA FILI 
339 LDA 4132 453 INPECV  BYT 0 558 LDA #$EA 
340 STA CH 461 ; 560 STA FILS 
341 LDA FILI 462 @PAFF LoA oPCH 561 JSR AP.FIL 
342 JSR PREYTE 463 STA CH 562 JMP OPTEST 
343 LDA #SAD 464 LDA OPCV 563 “7 CMP 47 
344 JSR COUT 465 STA CV 564 BNE >8 
345 LDA FIL2 466 JSR VTAB 565 LDA #0RA 
346 JSR PRBYTE 467 JSR SETINV 566 STA FILI 
347 LDA 4$A0 468 LDX OPIND 567 LDA 4SEA 
348 JSR COUT 469 LDA TABLEB,X 568 STA PIL3 
349 L8A FIL3 470 LBY TABLEA, X 569 JSR AF.FIL 
350 JSR PREYTE 471 JSR STROUT 570 JME OPTEST 
351 RTS 472 JSR SETNSRN 571 °8 CMP #8 
353 ; 473 RTS 572 BNE >9 
354 ADRL EPE $8 475 ; 573 LDA $EOR 
355 ADRA EPZ ADRL+I 476 OPEFF LDA GPCH 574 STÀ FILI 
360 : 477 STA CH 575 LOA #$EA 
361 PRINT PHP 478 LDA OPCV 576 STA FIL3 
362 PHA 479 STA CV s?? JSR AP.FIL 
363 TYA 480 JSR VTAB 578 JMP OPTEST 
364 PHA 481 LDX 4:20 579 "9 CMP #9 
365 TXA 482 USR PRBLK2 580 BNE >] 
366 PHA 483 RTS 581 LDA #520 
367 ; 485 ; 582 STA FILI 
368 TSX 486 OPTEST  LDA KBO 583 LDA #ECH2BITS 
369 LDA $105,X 487 BPL OPTEST 584 STA FIL2 
370 STA AORL 488 BIT KBDSTRB 585 LDA #ECH2BITS 
371 LDA $106,X 489 CMP #LARRON 586 STA FIL3 
372 STA ADRH 490 BNE 1 587 JSR AF.PIL 
373 LOY #1 49] JSR OPEFF 588 LDA MEMI 
374 ; 482 DEC OPIND 589 STA ECHE1 
375 PRNTLOOP LBA (ADRL}, Y 493 LDA OPIND 596 LDA MEM2 
376 BE@ PRNTDONE 494 CMP 4SFF 591 STA ECHE2 
377 JSR SFDED 495 BNE >2 592 USR AFF.256 
378 INC ADRL 496 LDA CPINDMAX 593 JMP OPTEST 
379 BNE PRNTLO8F 497 STA OPIND 595 ; 
380 INC ADRH 498 DEC OPIND 596 "1 CMP #110 
' © 
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s97 
598 
600 ; 
6901 
602 : 
603 "2 
604 
695 
606 
607 “3 
608 
609 
610 
611 
612 "4 
613 
614 
615 
616 
617 “5 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 "7 
628 
629 
630 
631 
632 
633 
634 


76: 


635 OPSUIVI 


636 
637 
638 
639 "8 
640 
641 
642 
643 
644 
645 
646 


647 OPSUIV2 


648 
649 
650 


651 OPTXIT 


654 ; 
655 

658 : 
659 OPCV 
660 OPCH 


661 OPIND 
662 CPINDMAX 


667; 
668 C1 
669 
670 C2 
671 

672 C3 
673 
674 C4 
675 
676 C5 
677 
678 Cé 
679 
680 c7 
681 

682 C8 
683 

684 C9 
685 
686 C10 
687 

é88 cii 
689 

690 C12 
691 

692 C13 
693 

694 C14 
695 
696 ci5 
697 
698 C16 
699 

700 c17 
701 

702 C18 





ASC 
HEX 
ASC 
REX 
ASC 
HEX 
ASC 
HEX 
ASC 
HEX 
ASC 


BNE >2 
NOP 


JMP ECR2 


CM #!11 
BNE >3 

JSR AFF,256 
JMP OPTEST 
CMP #112 
BNE >4 

INC MEN] 
JSR AF.REN 
UMP OPTEST 
CM #!13 
8NE >5 

DEC MSENI 
JSR AF.MEM 
UNE OPTEST 
CM #!14 
BNE >6 

INC MEME 
JSR AF.MEM 
UMP OPTEST 
CMP #!15 
BNE: >7 

DEC MEN2 
USR AF,MEN 
JP OPTEST 
CMP 4116 
BNE >8 

INC IBTRK 
LOA IBTRK 
CRE #$23 
BNÉ OPSUIVI] 
LDA #0 

STA IBTRK 
JSR AFFTRSC 
JSR RATS 
JSR AFF.256 
JNP OFTEST 
CMP #!17 
ens OPTXIT 
INC IBSECT 
ZOA IBSECT 
#$10 
OPSUIV2 
LDA #0 

STA 1BSECT 
USR AFFTRSC 
JSR RNTS 
USR AFF,256 
OPTEST 
OPTEST 


RTS 


BYT !18 
BYT Ô 
BYT © 
BYT 16 


"INCREMENTE OCTET 1" 
00 

MDECREMENTE OCTET 1* 
00 

NWINCREMENTE OCTET 2" 
00 

"DECRSMENTE OCTET 2" 
00 

MINCREMENTE OCTET 3" 
00 

"DECREMENTE OCTET 3” 
00 

“&T LOCIQUE" 

00 

*OU LOCIQUE" 

00 

"OU EXCLUSIF" 

00 

MECHANGCE DE BITS* 

00 

“LIRE SECTEUR" 

00 

*EXECUTION® 

00 

"INCREMENTE M.1" 

00 

MDECREMENTE M.1" 

00 

NINCRENENTE M.2* 

00 

"DECREMENTE M.2" 

00 

"PISTE SUIVANTE" 

00 

NSECTEUR SUIVANT® 


203 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
752 
753 
754 
756 
757 
758 
759 
260 
761 
768 
763 
764 
765 
266 
767 
762 
794 
795 
797 
798 
800 
80! 
902 
803 
804 
905 
806 
307 
808 
809 
810 
811 
812 
813 
814 
815 
8276 
817 
818 
819 
821 
822 
824 
825 
827 
828 
829 
830 
831 
832 
833 
8934 
835 
836 
837 
83€ 
8939 
840 


HEX 00 
TABLEB BYT CI 
BYT C2 
BYT C3 
BYrT Ca 
BYT CS 
BYT CE 
BYT C7 
BYT C8 
BYT C9 
8YT C10 
BYT C11 
BYT Ciz 
BYT C13 
BYT Cia 
BYT Ci5 
BYT C16 
C17 
c18 


TABLEH  HBY C1 
€c2 
HBY C3 
HBY C4 
es 
cé 
HBY C7 
HBY C8 
RBY c9 
ci0 
cil 
HBY C12 
HBY C13 
C14 
ci5 
HBŸY C16 
c17 
HBY C168 


MSA] 
MEN2 


BYT 1 
BYT 0 


AF.MEM LOA f134 
STA CH 
LDA #122 
STA CV 
JSR VTAB 
LOA MEHI] 
JSR PRBYIE 
LDA 4#$A0 
USR COGT 
LDA MEM2 
USR PREYTE 
RTS 
OCTRES  HEX 00000000 
HEX 00000000 
OCTIOCTE: 
STY O108SAVY 
CLC 
LDY #0 
#1 LSR 
8cs »>2 
PRA 
LDA #0 
STA OCTRES, Y 
PLA 
JAP >3 
#2 PHA 
LDA #1 
STA OCTRES, Ÿ 
PLA 
e3 INY 
CPY #3 
GNE <1 
IDY OIO8SAVY 
RTS 


OIOS8SAVY BYT 0 


OCT80CT 1: 
STY O8O1SAvY 
LDA #6 
STA OBOIRES 
LDY #7 
#1 LOA OCTRES,Y 
BNE >2 
CLc 
ROL OSOIRES 
JAP >3 
rè SEC 
R@L O8O1RES 
63 PEY 
BPL <1 


LDY 
RTS 


O8OIRES BYT 
O801SAVY BYT 


ECH2BITS: 


ECHE1 
ECHE2 


ECHRES 


STX 
JSR 
LOX 
LDA 
PAA 


STA 
JSR 
ZDOA 
STA 
LDx 
RTS 


BYT 
BYT 


BYT 


ECBSAVX BYT 


ALGI 


Le | 


ALG4 


ALGS 


ALGE 


AIGC7 


! 


CLIC 
AOC 


O801SAVY 


L=] 


ECBSAVX 
OCTIOCTS8 
ECHE] 
OCTRES, X 


ECHE2 
OCTRES , x 
ECHEI 
OCTRES. X 
ECHE2 


OCTRES,X 
OCT8OCTI 


OBO1RES 
ÊCHRES 
ECBSAVX 


SOUNDO 


SOUND 0 


SOUNDO 


MEN I 


MEN] 

>i 
SOUNDO 
MEN] 
AF.HEM 


MEM1 


962 
963 
964 
365 
966 
967 
968 





Sel 


971 ; 


972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 


989 ; 


930 
991 
9392 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1031 
1032 
1033 
1034 
2035 
1038 
1039 
1040 
1041 
1042 
1045 
1046 
1047 
1048 
1049 


ALG9 


Ko - 


SO0NDO: 
i 


12. 


*3 


SOGNB1 : 


°3 
Ga 


e2 
SFLAG 
SNDSAVA 
SNDSAVX 
SNDSAVY 


SNDSAVRG 


SNDRSTRG 


1056 ; 


1057 
1058 
1059 
1060 
1061 

1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 


PRINT256 





AOC MEMI 


MEN! 
BNE >1 

JSF SOGID0 
INC MEN] 
JSRAF.MEM 
PLA 

RTS 


JSR SNDSAURG 
LDX 4#$B0 

TXA 

EOR #$890 

TAY 

DEY 

BNE <2 

BIT SPKR 

TXA 

ADC #$80 

TAY 

DEY 

BNE <3 

BIT SPRR 

DEX 

BNE <1 

JSR SNOR$STRG 
RTS 


JSR SNDSAVRG 
LDA SFLAG 
880 >2 

LDA #1 

STA SFLAG 
L£0x #0 

LEDA SPKR, X 
INX 

CPX #130 
BNE <i 

INC SFLAG 
LDA SFLAG 
CMP #5 

BNE <3 

JSR SNDRSTRC 
RTS 


BYT 1 
BYT 8 
BYT 0 
BYT 0 


STA SNDSAVA 
STX SNDSAYX 
STY SNDSAvVY 
RTS 


LDA SNDSAVA 
LOX SNDSAVX 
LDY SNDSAVY 
RTS 


STA PTSAVA 
STY PTSAVY 
LDA $400 

STA PTSAV 400 


JSR WNDSAV 
JSR NNOINIT 


LDA #1 

JSR OUTPORT 
LOY #0 

LDA (BUF},Y 
NOP 

NOP 

NOP 

STY PFSAVY2 
ORA 4580 
CMP 4#4SFF 
BEQ >3 

CMP #$80 
BLT >2 

CMP 4$A0 
8cS >2 








1080 *3 LOA #$AF 1124 LDA WNDBTM 1172 COCTLF PAA 
1081 “2 JSR COUTLF 1125 STA WBTHSAV 1173 LDA COMETLE 
1082 LOY PTSAVY2 1126 LDA CA 1174 CMP #160 
1083 INY 1127 STA NCHSAV 1175 BNE >1 
1084 CPY 60 1128 LDA CV 1176 LOA #0 
1085 BNs <1 1129 STA NCVSAV 1177 STA COMPTLF 
1086 LDA 4$80 1130 RTS 1178 STA CH 
1087 JSR COUTLF 1131 : 1179 LOA 6$8A 
1088 LDA #9 1132 #WWDRST LDA WLFSAV 1180 JSR COUT 
1099 JSR OUTEORT 1133 STA WWO0ZLFT 1181 ‘I INC CONPTLF 
1090 : 1134 LDA WTOPSAV 1182 PLA 
1091 JSR NNORST 1135 STA AWDTOP 1183 JSR COGF 
1092 : 1136 LDA WNNDTASAV 1184 RTS 
1093 TDA PTSAV400 19937 STA #NDNDTH 1187 : 
1094 LDA PTSAVA 1135 LOA NBTHSAV 1188 COMPTLF BYT 0 
1095 LOY PTSAVY 1139 STA NNDBTM 1191 : 
1056 RTS 1240 LOA WCHSAV 1192 STROOTIF STA STRADR 
1099 : 1141 STA CH 1193 STY STRADR+$I 
1100 FTSAVA BYT 0 1142 EDA NCVSAV 1194 £LOY #0 
1101 PTSAVY  BYT 0 1143 STA CV JA STAI LDA (STRADR),Y 
1102 PTSAV400 BYT 0 1244 USR VTAB 1196 BEQ >2 
1103 PTSAVY2 BYT 0 1145 RTS 1197 JSR COUTLE' 
1106 :; 1146 : 1198 INY 
1107 WNDINIT LOA #0 1147 WLFSAV  EYT 0 1199 CLC 
1108 STA ANOLFT 1148 WIOPSAV BYT 0 1200 ace <1 
1109 STA NNOTOP 1149 WNDTHSAV BYT 0 1201 *2 RTS 
1110 STA CR 1150 WBTMSAY EYT 0 1204 : 
1111 STA CV 1151 WCASAV  BYT 0 1205 STRADR EPZ $EB 
1112 JSR VTAB 1152 WNCVSAV  EYT 0 1206 LFFLAG EYT 1 
1113 LDA #1 1157 ; 1209 : 
1114 STA NWDNDTH 1158 INITVECT LDA #INTRO 1210 LFLF LDA LFFLAG 
1115 STA NNDBTM 1159 STA S3F2 1211 BEQ >1 
1116 RTS 1160 LBA INTRO 1212 LOA #58A 
1117 ; 1161 STA S3P3 1213 JSR COUT 
1119 WNNDSAV  LOA WNOLFT 21631: 1214 LOA #9 
1129 STA WLFSAV 1164 LDA 53F3 1215 STA CA 
1120 LOA NNDTOP 1165 EOR #$A5 1216 STA COMPTLF 
1121 STA WTOPSAV 1166 STA S3F4 1217 “1 RTS 
1122 LDA HNONDTA 1167 RTS 1220 : 
1123 STA NNDTASAV 1171 2 1221 END 
L L 0928- D5 D4 C1 CE D4 AO C1 A0 0A70- 0C AD EB 0C 8D 2F OC A9 
Récapitulation 0930- A0 C3 C8 C1 D1 D5 C5 A0 0A78- 0E 8D EC OC EE ED OC EE 
DECRYPTEUR 0938- A0 C6 CF C9 D3 AO A0 D5 0A80- ED OC 20 B7 0C ÀD EB OC 
0940- CE 8D C6 C9 CC D4 D2 C5 0A88- 8D 30 OC A9 DA 85 24 A9 
0800- 20 39 12 20 58 FC 20 68 0948: AC A0 CD C1 D4 CS D2 C9 0A90- 16 85 25 20 22 FC 20 68 
0808- OC 8D 8D 8D DO D2 CF C7 0950- C1 CC C9 D3 C5 A0 DO C1 0A98- 0C 45 53 50 41 43 45 60 
0810- D2 C1 CD CD C5 A0 C4 CS 0958- D2 A0 D4 D2 CF C9 D3 A0 CAAO- 50 4F 55 52 60 43 4F 4E 
0818- A0 C4 C5 C3 D2 D9 DO D4 0960- CF C3 D4 C5 D4 D3 ÀE 8D 0AA8- 54 49 4E 55 45 52 00 AD 
0820- C1 C7 C5 8D AD AD AD AD 0968- 8D D6 CF DS D3 AO DO CF 0ABO- 00 CO 10 FB 2C 10 CO 20 
0828- AD AD AD AD AD AD AD AD 0970- D5 D6 C5 DA AO C1 C9 CE OAB8- 58 FC 20 68 OC A0 A0 A0 
0830- AD AD AD AD AD AD AD AD 0978- D3 C9 AO D6 C9 D3 DS C1 OACO- A0 A0 A0 AO AO AA AA AA 
0838- AD AD AD 8D C4 C5 A0 D3 0980- CC C9 D3 CS D2 A0 DS CE OAC8- AA AA AA AA AA AA AA AA 
0840- C5 C3 D4 CS DS D2 D3 A0 0988- A0 AO D3 C5 C3 D4 AD 8D OADO- AA AA AA AA AA AA AA 8D 
0848- A0 C3 CF C4 C5 D3 A0 DO 0990- CS D5 D2 A0 C1 D6 CS C3 OAD8- A0 AO A0 A0 A0 AO A0 A0 
0850- C1 D2 AO 8D D5 D4 C9 CC 0998- A0 D5 CE A0 C6 C9 CC D4 CAEO- AA A0 C4 C5 C3 D2 D9 DO 
0858- C9 D3 C1 D4 C9 CF CE A0 09A0- D2 C5 A0 C3 CC C1 C9 D2 04E8- D4 CS D5 D2 AO B1 AE BO 
0860- C4 A7 D5 CE A0 C6 C9 CC 09A8- AC A0 C6 CF CE C3 C5 AC OAFO- A0 AA 8D A0 AO AO AO A0 
0868- D4 D2 C5 8D AD AD AD AD 09B0- A0 AO CF DO C1 AD 8D D1 0AF8- A0 AO A0 AA AA AA AA AA 
0870- AD AD AD AD AD AD AD AD 09B8- D5 C5 AO CF DS A0 CF D2 0B00- AA AA AA AA AA AA AA AA 
0878- AD AD AD AD AD AD AD AD 09C0- C1 CE C7 CS BB A0 Dé CF 0B08- AA AA AA AA AA 00 20 14 
0880- AD AD AD 8D 8D 8D A0 AD 09C8- D4 D2 C5 A0 D6 C9 D3 C3 0B10- 0B 4C 44 0B A9 04 85 25 
0888- A0 A0 A0 DO C1 D2 A0 DO 09D0- CF CE AO DO C5 D5 D4 A0 0B18- 20 22 FC A9 00 85 24 20 
0890- C1 D5 CC A0 C6 D2 C1 CE 09D8- AG C5 D4 D2 C5 8D C6 CC 0B20- 68 0C DO C9 D3 D4 C5 A0 
0898- C3 C5 D3 C3 C8 C9 8D A0 09E0- CF D5 C5 AC A0 DO D2 CS 0B28- 00 AD 2F 0C 20 DA FD 20 
08A0- AO A0 A0 A0 C3 CF DO D9 09E8- C3 C9 D3 C5 AC A0 C4 C5 0B30- 68 OC A0 A0 D3 C5 C3 D4 
08A8- D2 C9 C7 C8 D4 A0 B1 B9 09F0- A0 C8 C1 DS D4 AC A0 C4 0B38- C5 D5 D2 A0 00 AD 30 0C 
08B0- B8 B5 AE 16 05 12 13 09 09F8- C5 A0 DO D2 C5 D3 AO AC 0B40- 20 DA FD 60 A9 00 8D 14 
08B8- 0F 0E 20 31 2E 31 00 AD 0AO0- A0 C4 CS A0 8D C2 C9 C1 0B48- 0C 85 06 A9 60 85 07 20 
08C0- 00 CO 10 FB 2C 10 CO 20 0A08- C9 D3 AC A0 CF D5 A0 CS 0B50- 19 OC 20 RE 0B A9 21 85 
08C8- 58 FC 20 68 OC C3 C5 A0 0A10- D8 D4 D2 C1 CC DS C3 C3 0B58- 24 A9 02 85 25 20 22 FC 
08D0- DO D2 CF C7 D2 C1 CD CD 0A18- C4 CS AE AE AE 8D 8D 8D 0B60- 20 68 OC C6 C9 CC D4 D2 
08D8- C5 AO D6 CF D5 D3 A0 DO O0A20- C1 CC CF D2 D3 AC A0 D1 0B68- C5 00 A9 21 85 24 A9 03 
08E0- C5 D2 CD C5 D4 A0 C4 A7 0A28- DS C5 CC A0 D3 C5 C3 D4 0B70- 85 25 20 22 FC 20 68 0C 
08E8- C1 C6 C6 C9 C3 C8 CS D2 0A30- C5 D5 D2 A0 C4 C5 D3 C9 0B78- AD AD AD AD AD AD 00 A9 
08F0- A0 CC C5 8D C3 CF CE D4 0A38- D2 CS DA AD D6 CF D5 D3 0B80- EA 8D Di OB 8D D2 0B 8D 
08F8- CS CE D5 AO C4 A7 D5 CE 0A40- A0 CC C9 D2 CS BF 8D 8D 0B88- D3 0B 20 40 OC A9 21 85 
0900- A0 D3 C5 C3 D4 C5 DS D2 0A48- 8D 20 20 10 09 13 14 05 0B90- 24 A9 14 85 25 20 22 FC 
0908- A0 C4 C5 AO CD D5 CC D4 0A50- 20 20 20 20 20 8D 8D 20 0B98- 20 68 0C CD AË B1 A0 CD 
0910- C9 DO CC CS D3 AO A0 C6 0A58- 20 13 05 03 14 05 15 12 OBAO- AE B2 00 20 01 10 A9 00 
0918- CI AD 8D C3 CF CE D3 AC 0A60- 20 20 20 00 A9 0E 8D EC O0BA8- 8D C3 0E 8D C2 O0E A9 14 
0920- A0 C5 CE A0 C3 CF CD CD 0A68- OC A9 OF 8D ED 0C 20 B7 OBB0- 8D C1 0E A9 12 8D C4 CE 
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OBB8- 20 EE OC 
O0BCO- 85 24 8D 
OBC8- 25 20 22 
CBDO- EA EA EA 
0BD8- C9 A0 B0 
OBEO- FD C8 EE 
OBE8- C9 20 DO 
O0BFO- OC A9 00 
OBF8- 22 FC CO 
0C00- 11 AD D1 
0C08- D2 0B 8D 
0C10- 8D A4 11 
0C18- 00 A9 3C 
O0C20- 8D 32 OC 
0C28- D9 03 60 
0C30- 00 00 00 
0C38- 00 00 60 
0C40- A9 05 85 
0C48- 20 85 24 
O0C50- FD A9 A0 
0C58- 0B 20 DA 
0C60- FD AD D3 
0C68- 08 48 98 
0C70- 05 01 85 
0C78- 09 A0 01 
O0C80- ED FD E6 
0C88- DO F1 E6 
0C90- A5 08 9D 
0C98- 06 01 68 
OCAO- 60 48 OA 
OCA8- 0F 18 69 
OCBO- 29 0F 8D 
OCB8- EC OC 85 
OCCO- 25 20 22 
OCC8- ED FD 20 
OCDO- OA OA OA 
OCD8- OC FD 20 
OCEO- 18 AD B6 
OCE8- EB OC 60 
OCFO- CE 85 24 
OCF8- 20 22 FC 
0D00- 0E BD DB 
0D08- 3A DB 20 
0D10- 0E 85 24 
0D18- 20 22 FC 
0D20- 60 AD 00 
0D28- CO C9 88 
0D30- CE C3 0E 
0D38- DO 09 AD 
0D40- CE C3 0E 
0D48- OD C9 95 
O0D50- EE C3 0E 
OD58- 0E DO 05 
0D60- 20 EE OC 
0D68- DO 10 AD 
0D70- 23 EE DI1 
0D78- 21 OD C9 
0D80- 0B EE D2 
0D88- 21 OD C9 
O0D90- 11 4C 21 
0D98- CE D1 0B 
ODA0- 0D C9 02 
ODA8- 20 40 OC 
ODBO- DO 09 CE 
ODB8- 4C 21 OD 


A9 


A9 


0E00- 
CE08- 
CE10- 
0E18- 
0E20- 
0E28- 
0E30- 
0E 38- 
0E40- 
CE48- 
CE50- 
0E58- 
0E60- 
0E68- 
0E70- 
0E78- 
0E80- 
0E88- 
0E90- 
0E98- 
CEAO - 
0EA8- 
0EB0- 
0EB8- 
CECO- 
O0EC8- 
O0EDO- 
OED8- 
0EEO- 
0EE8- 
0EFO- 
0EF8- 
0F00- 
0F08- 
0F10- 
0F18- 
OF20- 
CF28- 
OF 30- 
CF38- 
0F40- 
0F48- 
0F50- 
0F58- 
0F60- 
0F68- 
0F70- 
0F78- 
0F80- 
0F88- 
0r90- 
0F98- 
0FAO- 
0FA8- 
0FBO- 
0FB8- 
O0FCO- 
0FC8- 
0FDO- 
0FD8- 
0FEO- 
O0FE8- 
0FFO- 
0FF8- 
1000- 


A0 


1048- 

1050- 

1058- 

1060- 
1068- 

1070- 
1078- 

1080- 
1088- 

1090- 
1098- 
10A0- 
10A8- 
10B0- 

10B8- 

10C9- 
10C8- 
10DO- 
10D8- 
10EO- 
10E8- 
10F0- 
10F8- 
1100- 
1108- 
1140= 
1118- 
1120- 
1128- 
1130- 
1138- 
1140- 
1148- 
1150- 
1158- 
1160- 
1168- 
1170= 
1178- 
1180- 
1188- 
1190- 
1198- 
11A0- 
11A8- 
11B0- 
11B8- 
11C0- 
11C8- 

11D0- 

11D8- 
11E0- 
11E8- 
11F0- 
11F8- 
1200- 
1208- 
1210= 
1218- 

1220- 

1228- 

1230- 

1238- 
1240- 

1248- 


FF 


EX" 


72 


ED 
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cLar«& 8800 Apple et le logo Apple sont des marques déposées d'Apple Computer, Inc. Mac Tell 2 (Copyright 1985 - Hello Informatique) matériel agréé par les PTT. 





Autant l'avouer tout de suite, 
nous sommes dans l'ère de l'infor- 
mation. Et avant de pouvoir analyser 
les données qui proviennent des 
quatre coins du monde, il faut déjà 
pouvoir les attraper. 

Vous pouvez toujours chauffer la 
plante des pieds de vos employés, 
sans un Macintosh, un bon modem 
et un programme de communiCa- 
tion, impossible de leur faire dire 
quoi que ce soit à propos de votre 
correspondant de Chicago, ni sur la 


Modem 300 baudks. 


vente de maillots de bain pendant 
l'été 1985 au pôle Nord. Ne vous tor- 
turez pas davantage, nous sommes 
enfin disposés à tout vous révéler 
à propos de nos moyens de com- 
munication. 

Les trois modem Apple sont : 
-Le modem 300 bauds, d'usage très 
simple ; peu cher, il permet à n'im- 
porte quel étudiant de chercher par- 
tout des renseignements pour son 
interrogation du lendemain. - Le 
modem universel 1200/75 Vidéotex 


et 300 bauds qui permetdecommuni- 
quer en vidéotext sur des applica- 
tions pseudo-graphiques (en mode 
1200/75) et en texte de façon très 
ordinaire (en mode 300). Universel, 
il est idéal pour faire parler les avo- 
cats, les médecins ou les dentistes. 

- Le modem 1200 bauds full du- 
plex : il fait parler les gros systèmes 
et ce, à grande vitesse. Lors des 
échanges de fichiers contenant une 
quantité importante d'informations, 
œæ modem est une merveille, compte 


Apple Computer France. Avenue de 


ns de vous faire parler 


Modem Full duplex 1200 baudi. 


tenu de l'existence de “protocoles”, 
qui sur des liaisons spécialisées 
1200 bauds, se chargent de la vérifi- 
cation de la validité des informations 
transmises, évitant ainsi la plupart 
des erreurs de transmission. C'est 
amusant de voir comment une si 
Le machine peut faire parler si 

lement de gigantesques systèmes 
de données. 

Pire que tant dhommes ont 

cherché des moyens très compliqués 
pour obtenir des renseignements, 


ZA de Courtabæuf, BP 131, 91944 Les Ulis Cedex. 





Modem Universel 1200/75 Vidéotex 300 bauds. 


alors qu'un programme de commu- 
nication comme Mac Tell 2 de Hello 
Informatique ou Mac Terminal peut 
faire avouer à n'importe quel serveur 
d'informakon, n'importe quoi. 

Mac Terminal peut interroger un 
réseau télématique comme Calvados, 
messagerie électronique française 
qui peut vous faire rencontrer beau- 
coup plus de monde que sur la place 
de l'@péra aux heures de pointe. 
Vous pouvez échanger des informa- 
tions, connaître les cours de la 


Bourse, consulter les 
dépêches de l'AFP Mac 
2 permet d'émuler 
un Minitel avec tous 
les avantages d'un 
Macintosh (mémori- 
sation, impression). 
Maintenant, déci- 
dez-vous, décidez en 
étant au courant de 
tout, ou décidez en 
étant au courant de 


rien. Apple 





Librairie : 


Un ‘motif’ de satisfaction 


OUS VOUS proposions, 

dans le numéro 18 de 

“Pom's”, deux routi- 

nes qui vous perinet- 
taient de récupérer les icônes et 
les curseurs du système. Cette 
fois, notre attention va se porter 
sur les 38 “motifs” (pattern) 
prédéfinis, utilisés par le tableau 
de bord pour déterminer 
l'apparence du “bureau”. La 
définition de motifs dans un 
programme Basic étant longue et 
fastidieuse, une telle routine nous 
semblait indispensable. Ceci va 
aussi nous permettre de décrire, 
dans ses grandes lignes, le 
fonctionnement de l'instruction 
“LIBRARY” qui n'est évoquée, 
dans le manuel d'utilisation du 
Basic Microsoft, que dans la liste 
des mots-clé. Vous trouverez 
donc, jointes à cet article, deux 
versions de la routine : 


* une version que nous 
appelerons “tableau”, puis- 
qu'elle se loge dans un tableau 
de variables entières (c'est la 
méthode utilisée dans les 
précédents numéros de 
“Pom's”); 

* une version ‘LIBRARY” qui, 
comme nous le verrons un peu 
plus loin, requiert la présence 
d'un fichier ressource. 


Version ‘Tableau’ 


La routine doit être implantée 
dans un tableau de variables 
entières de vingt éléments, et son 
adresse de base correspond au 
premier de ces éléments. Pour 
obtenir cette adresse (pour le 
CALL) il faut donc utiliser : 


Adrl=VARPTR(Tableau%(0)) 
avec OPTION BASE 0 (valeur 
par défaut), ou : 


Adri=VARPTR(Tableau%(1)) 
avec OPTION BASE 1. 





Marianne Sutz [2] 
— 


Il suffit ensuite d'appeler la 
routine en lui passant, comme 
argument, le numéro de référence 
du motif désiré. Cette valeur doit 
être comprise entre O et 37 inclus 
(voir le tableau ci-joint). Un 
nombre inférieur à O ou supérieur 
à 37 ne provoque pas de 
“plantage”, mais on obtient alors 
n'importe quoi comme motif, Le 
numéro peut être passé sous la 
forme d'une expression ou d'une 
variable qui doit absolument être 
entière (2 octets soit 16 bits). 
Ainsi : 

Adr! NX*2+1 

et 


Adr! Ni% 
constituent des appels valides de 
la routine. 


Programme de 
démonstration 


DEFINT A-Z:DIM R(3),C(19) 
DATA &h4E56,0,8h594F; &h2F3C, &h5041 
DATA &h5423,8h3F 30, 0,8hA9A0,8h225F 
DATA &h2251,8h302E,8,8hC0FC,8 
DAT A &h4871, &h802,8hA89D,&h4E5E 
DATA &h4E75 

FOR /-0 TO 19:READ Cf): NEXT 

FOR 1-23 TO 479 STEP 24 
UNE(1,0}-(1,300):NEXT 

FOR 1-23 TO 287 STEP 24 
LINE(C,1)-(500,):NEXT 

10 RANDOMIZE TIMER 
R(0)=24"INT(RND"13) 
R(1)=24"INT(RND*21) 
R(2)=R(0)+23:R(3)-R(1)+23 

N=INT(RND “38)-A!=V ARPTR(C(0)):A! N 
PAINTRECT VARPTR(R(0)):GOTO 10 


Version 
“LIBRARY” 


L'instruction “LIBRAR Y” permet 
l'utilisation directe de routines 
créées avec le système de 
développement 68000, et autorise 
des liens beaucoup plus étroits 
entre ces routines et le Basic 
Microsoft (version 2.00, (d) ou 
(b)). Sans trop entrer dans les 
détails (on manque un peu de 
place !), il convient de citer la 
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posibilité de générer les messages 
d'erreur du Basic depuis la 
routine en assembleur, de 
contrôler le type des arguments 
passés, d'utiliser comme 
arguments des variables qui n'ont 
pas été préalablement définies, 
etc... Nous aurons bien sûr 
l'occasion de reparler de cela 
dans les prochains numéros de 
“Pom's” mais, en attendant, nous 
vous conseillons de demander à 
la société Microsoft un document 
polycopié de 21 pages intitulé 
“Microsoft Basic for the 
Macintosh. Building Machine 
Language Libraries”, où l'on 
trouve toutes les adresses liées au 
système, ainsi que des exemples 
d'application. 


Voyons maintenant quelle est la 
méthode pour employer la 
version “LIBRARY” de notre 
routine. 


Elle doit se trouver dans un 
fichier ressource, qui doit 
lui-même être situé, de préfé- 
rence, sur la même disquette que 
le Basic Microsof. 

Si vous disposez de la disquette 
“Mac Poms 21”, pas de 
problème : le fichier s'y trouve 
(sous le nom “PatLib.Rscr”), de 
même que les fichiers nécessaires 
à sa création (PatLib.Job, 
LIBinit.Asm, PatLib.Asm, Pat- 
LibLink et PatLib.R). 

Si vous ne disposez pas de la 
disquette mais que vous êtes en 
possession du système de 
développement 68000, il vous 


Source de la routine de chargement des “motifs” 





faudra saisir les cinq fichiers 
précités, puis utiliser le fichier 
PatLib.Job (avec “Executive”), 
qui se chargera de l'enchaînement 
des opérations. 

Dans le cas où la disquette 
“Pom's” et le système de 
développement 68000 vous 
feraient défaut, désolé. il n'y a 
pas de solution. Ceci constitue 
d'ailleurs le principal inconvé- 
nient des routines “LIBRARY” : 
leur création est impossible sans 
le système de développement, et 
il est alors nécessaire de se 
reporter à la bonne vieille 
méthode du tableau de variables. 


Liaison avec le 
programme Basic 


Avant le premier appel de la 
routine, nous devons la lier au 
Basic avec l'instruction 
“LIBRARY”, suivie du nomde la 
ressource (le fichier contenant la 
routine en assembleur) ou d'une 
variable alphanumérique dans 
laquelle le nom aura été 
préalablement placé. Dans le 
programme de démonstration : 
LIBRARY “PatLib.Rscr” 

se charge de cette opération. 

Si la routine ne se trouve pas sur 
la même disquette que le Basic 
Microsoft, il est indispensable 
que le nom de la ressource soit 
précédé du nom de volume 
(‘Pom's 21:PatLib.Rscr", par 
exemple) sinon, on se retrouve 
avec le message “FILE NOT 
FOUND”. Si le nom 


“PatLib.Rscr” ne vous convient 
pas, il est possible de renommer 
le fichier. 


Appel de la routine 


On procède de la même façon 
qu'avec la version “tableau”, à 
une différence près : il n'est pas 
nécessaire de définir la variable 
du CALL avec VARPTR et le 
nom de la routine est imposé par 
son auteur (nous avons baptisée 
celle-ci “PatLib”). Notons aussi 
un petit “plus” par rapport à la 
version “tableau” : la routine 
génère le message d'erreur 
OVERFLOW du Basic si 
l'argument passé est supérieur à 
37 ou inférieur à O (bien que, 
dans ce cas, il s'agirait plutôt de 
“underflow” mais, ce message 
n'étant pas disponible...). 


Fermeture de la routine 


En fait, la fermeture n'est pas 
indispensable, puisque les 
instructions NEW, SYSTEM et 
RUN détachent la routine du 
Basic. Si, pour une raison 
quelconque, on doit fermer la 
routine, on peut utiliser l'instruc- 
tion LIBRARY CLOSE. 


Avant de conclure, 1l convient de 
souligner le caractère le plus 
intéressant du “système 
LIBRARY” : il permet “l'over- 
lay” dynamique. En effet, si nous 
passons la valeur O dans le 


El 


+ Retourne le “HÆandle" d'une ressource <= SN 


0000 .Trap _GetResource $A9A0 

0000 .Trap _PenPat $A89D : Tnitialise le "motif" à utiliser. 

0000 

0000 4E56 0000 LINK A6,#0 

0004  594F SUBQ #4,SP » 4 octets au sommet de là pile pour "Handle". 
0006 2F3C 5041 5423 MOVE.L #'PAT#',-(SP] ; Empile le type de ressource à rechercher. 
000€ 3F3C 0000 MOVE #0,-(SP) : Empile l'identificateur de la ressource (0). 
0010  AS9AC _GetResource : Retourne l'adresse du pointeur ("Handle"). 
0012 225F MOVE .L (SP) +,A1 : Le “Randle" est placé dans le registre Al. 
0014 2251 MOVEA .L (Al) ,A1i ; Le pointeur est placé dans le registre Al. 
0016  302E 0008 MOVE 8(A6},D0 rs Le numéro passé depuis le Basic dans D0. 
COIA COFC 0008 MULU #9,D0 ; Multiplie ce numéro * 8 (1 motif= 8 octets). 
OOIE 4871 08 O2 PEA 2(A1,D0.1) ; Empile l'adresse du motif sélectionné. 

0022  A89D _PenPat : Change le "metif" du “crayon. 

0024 4E5E UNLK A6 

0026 4E75S RTS 
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registre de données DO avant le 
retour au Basic, la routine est 
“purgeable”. De ce fait, si la place 
en mémoire devient insuffisante, 
la routine sera automatiquement 
évacuée. Par la suite, un appel de 
la routine provoquera un 
rechargement automatique. Ceci 
s'avère particulièrement utile pour 
les routines volumineuses et, plus 
généralement, pour les posses- 
seurs de Mac 128K0. 


Programme de 
démonstration 
Version "LIBRARY" 


LIBRARY "PatLibAscr 
DEFINT A-Z-DIM R(3) 

FOR 1-23 TO 479 STEP 24 
LINE(1,0)(1,300):NEXT 
FOR 1-23 TO 287 STEP 24 
LINE(O,}-(500,):NEXT 

10 RANDOMIZE TIMER 
R(0)-24*INT(RND*13) 
R(1)-24‘INT(RND”21) 
R(2)=R(0)+23:R(3)-R(1)+23 
N=INT(RND"38):PatLib! N 
PAINIRECT VARPTR(R(0)):GOTO 10 


PatLib.Asm 
.Trap GetResource $A9A0 
.Trap _PenPat $AB89D 
GetNextLibArg E@U $2A 
BasicError EQ $42 
SUBOQ #2,5P 
MOVE.L S'PAT#",-(SP) 
MOVE #0,-(SP) 


GetResource 
MOVE.L (SP) +,Ai 
MOVEA .L (A1),A1 


JSR GetNextLibArg(AS} 

MOVE {A2),D0 

DST D0 

AMI.S Erreur 

CMP #37,D0 

8GT Erreur 

MULU #8,D0 

PEA 2(A1,D0.L) 

PenPat 

MOVEQ #0,D0 

RTS 
Erreur MOVEQ #6,D2 

USR BasicError(AS} 
PatLib.Link 


/ OUTPUT PatLib 
LIBinit.Rel 

< 

PatLib.Rel 

$ 


MacPaintAstuces 


+. En mode Crayon et avec le bouton de la sois enfoncé, le déplacement 
s'obtient avec la touche Option, et le pointage de la loupe à l'endroit de 
la flèche avec la touche Commande. 

*_ Tous les outils, même le lasso, bénéficient de la direction forcée grâce 
la touche Majuscules. 

° Avec Majuscules, Commande et Option, on peut déforiner un 6bjet en 
préservant 53 structure. Ainsi, le cercle de gauche est-il sélectionné par 
le rectangle; en appuyant sur les trois touches et en tirant vers la droite, 
on obtient le résultat de la figure 2. 


7 


CE 


Figure 1! Figure 2 


* Si l'on a aussi sélectionné la grille, on préserve non seulement la 
structure, mais aussi tout décor qui y serait présent (fig. 3). 





«0 x dé ven mn À 





Figure 3 


° Quand on fait des copies multiples, avec les touches Commande et 
Option, leur espacement est défini par l'épaisseur de trait sélectionnée 
en bas et à gauche de l'écran. 


PatLib.Job PatLib.R 
(Executive) 
PatLib.Rscr 
As LiBinit.Asm Exec Edit &LIB 
Asm PatLib.Asm Exec Edit TYPE CODE = GNRL 
Link PatLib.Link Exec Edit LIBinit,1 
Rraker PatLib.R Exec Edit .R 
PatLib CODE 1 
ni TYPE CODE = GNRL 
LiBinit.Asm he Lt F | 
: .R z 
LIBVER Result EU 6 Tr UE 
CIR  LIBVER Result (A0) 2 ES 
MOVEQ #0,D0 D 


RTS 


MacPaintAstuces Suite. 


* Pour entrer du #xte continu en modifiant la police, la taille oule style 
(voir ci-dessous), faire “Enter” (pas “Return”} avant chaque 
modification. 

Changement de taie, de 


style (gras, souligné) 


+ Quand on maintient la touche Commande enfoncée, tout décor appliqué 
avec la brosse se superpose en transparent aux décors antérieurs. Si te 
nouveau décor est plus clair, transiter par une inversion d'image. 

+ Lorsqu'on a choisi l'option "Editer un moüf" on peut éditer n'importe 
quel décor prélévé par simple clic dans la fenêtre MacPaint. 


* Pour quitter MacPaint et éjecter d'un coup la disquette, maintenir la 
touche Commande enfoncée pendant le choix de l'option Quitter. 
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Une corbeille dans la € 


OUS avons tous vu 

apparaître, sur l'écran 

du Macintosh, les 

messages “Le disque 
est saturé. Recommencez.”, “Le 
disque est saturé. Effacez des 
documents ou changez de 
disque.” , ou encore “Place 
disponible insuffisante pour 
enregistrer. Utilisez un autre 
disque.” . Ce ne sont bien sûr que 
quelques exernples de ce qui peut 
se présenter lorsque la disquette 
de démarrage est saturée, ou 
proche de la saturation. 


La seule solution consiste alors à 
retourner au “Finder” pour 
effectuer les manipulations 
nécessaire, ce qui se traduit, dans 
la plupart des cas, par la 
destruction d'un ou plusieurs 
fichiers devenus inutiles (bout 
d'essai, ancienne version du 
fichier traité, etc...). Tout cela fait 
perdre du temps, et il nous fallait 
nous mettre à la recherche d'une 
solution. 


Voici donc un petit accessoire de 
bureau propre à pallier le manque 
de “corbeille” lorsqu'on utilise un 
programme. L'accessoire ici 
proposé est donc une “corbeille 
de bureau”, qui a le même rôle 
que son homonyme du “Finder”, 
mais, et nous le verrons un peu 
plus loin, avec des caractéris- 
tiques un peu plus ‘‘expéditives” 
(dans un premier temps, nous 
avions baptisé la chose “Destruc- 
teur”, mais nous avons préféré 
remplacer ce nom quelque peu 
terrorisant par “+-> Corbeille”). 


Mode d'emploi 


L'accessoire en question se 
trouve dans le fichier “système” 
de la disquette Pom's Mac 21; 
vous pouvez donc utiliser 
directement ce fichier ou, si vous 


Jean-Luc Bazanegue 


File Edit Style Font Layout Arrange Fill Lines Pen 


e-> Corbeille.R… 
e-> Corbeille.fA… 
e-> Corbeille.CE 

e-> Corbeille.L.. 

e-> Corbeille.R 


Pour trouver Pom's : 

s les kiosques ou le 39.51.:24.43 

Pour supprimer un fichier : 

e le sélectionner, ciiquer sur ‘Guvrir'… 





> Corbeille.Asm : 
el 


: Routines utilisées par l'accessoire. = 
ES 





.Trap _Pack3 SASEA ; 4ppel du "Stendard file package“. TS 
-Trap _Delete $2009 : Destruction d'un fichier. 

-Trap GetVolrnfo SA007 ; Lecture des informations sur les volures. 
-Trap | OfFtine $A035 ; Mise "hors ligite” d'un volume. 

.Trap | Mountvol $A00F : se "en liÿgre” d'un volume. 

.Trap | lashMenuBar $A94c ; Inverslen {vidéo} d'un menu. 

.Trap _sysBeep $AIC8 ; Provoçque un "Bip“ ou une inversion si volume-0. 
.Trap _CopyBits $AS$EC : A peu prés équivalent au "“PUT" du Basle. 
.Trap _SetPort $SA873 ; indique le port graphique courant. 

.Trap _DisposWindow SA9I4 ; Libère la mémoire utilisée par une fenêtre. 
.Trap NewWindow $4913 ; Pour créer une nouvelle fenêtre. 

.Trap _Drarstring $4884 : Affiche une chaîne de caractères. 

.Trap MoveTo $2893 : Déplace le "crayon" à le position indiqué. 
-Trap _Linero SA89] ; Trace une ligne depuis la position du créÿen. 
.Trap PérPat SA89D ; Pétermine le “aotif" du "crayen". 

.Tcap _rextFont SA887 : Police de caractères à utiliser. 

-Trap segin/sdate $A922 : Début de mse à jour d'une Ffenètre. 

. Trap _EndUpdate $A923 ; Ftn de mise à jour d'une fenétre. 


: Bécalages par rapport ä la base du tampon ‘“TamponIO" de 80 ectets, utilisé par les routines 
; _Delete, GetVolïnfo, _Offlire et _MountVol pour le stockage des paramètres 


1oCampletiort EQU $C : Pointeur pour entrées/sorties asÿnchrones. 
ioResult EQU $i0 ; 2 octets pour un éventuel code d'erreur- 
10FiieNanmé EQU $12 ; Pointeur sur le nom de flchler. 

ioVRefNum EU s16 ; ? octets pour le numéro de référence du volume. 
JoFileType Eu $14 ; 1 octet pour le type de fichier. 

10oV@ 1512e EU $40 : Taille du tampon (64 octets]. 

jowWPtr EQU $12 ; Poiuteur sur le ne» de volume. 

jovolindex ÆEQU $1C ; 2 octets pour le numéro d'index du volume. 


: Décaleÿes par rapport 4 la base du tampon “TamponRep" de 72 octets, utilisé par la routine 
;: _PacXx3 pour le retour des informtions. 


rGood EQU 0 ;: Srapeau: 0 si "Annuler", L{ s1 "Ouvrir". 
rVolume EQU 6 ; Numéro de référence du volume, 

rVersion EQU ; Numéro de verslen du fichier. 

rName EQU 10 : Won du fichier (Maxlaum 63 octets). Le preaider 


: octet indique 12 longueur du nom. 
+ £quivalences diverses. 


sfGetf'ile sou 2 : Sélecteur de routine {pour _Pack3). 
Finderkane EU $2E0 : Adresse de stockage du nom du “Finder”. 
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désirez placer Le Corbeille” CurApName (20)] $910 ; Adresse de stockage du nom de l'application en 
, à s > ‘ cours. 
dans un fichier système résidant daCtiwindo® EX $1E ;: Polnteur sur la fenêtre de l'accessoire. 
sur une de vos disquettes 1l est dCtiRefNua De] $19 ; Numéro de référence de l'accessoire. 
. A . Le d WindosKind (0,2] se + Décalage par rapport à la base de 
bien sur possible de l'installer : l'enregistrement d'ure fenêtre. 
avec l'utilitaire “Font/DA dsox? rec a 1 : Numéro de référence des fenêtres type “Dialog”. 
Mover”’ gray [302] SEFFFFFES : Adresse relative {registre A$) du “Gris moyen”. 
+ En-tête du driver (voir "Lucy in the Sky with Diamonds", numéro 19 de Pom's). E 
: , Base æœ $400,0,0,0 J | 
Cet accessoire est d'un emploi œ Ouverture-Base,Ouverture-Base, Ouverture-Base œ 1] 
très simple; un mode d'emploi au æ Ouverture-Base, Ouverture-Base EN 
À ] oc.B 9, 'ACC3POM' 'S" * 
sens propre du terine serait donc D 
OVEM .L Ai-44,-(SP} + Sauveÿarde les registres d'adresse Al, A2, A3 


superflu. En revanche, quelques Cuveicure 


: et A4 àu sommet dé 1a plle. 


É « : 
mises en garde S imposent : WHOVE .L Al, A4 ; Cople du registre Al dans le registre A4. 
+: Le "Fiñder" autorise 13 destruction des fichiers par l'intermédiaire de 13 corbeille, ce qui 
66 ï LE ;: rend l'accessoire inutile lorsque le “Finder” tourne. De plus, le "Finder" ne reconnait pes 
+ “> Corbeille” ne peut 4 nids. 

D ° P ; la destruction d'un fichier si elle n'est pes effectuée par la vole normale, ce qui peut 
pas etre appelé depuis le ; provoquer des problèmes (appel d'un fichier reconnu Par le "Finder", bien que venant d'être 
“Finder”; ce serait inutile ;: détruit par l'accessoire). Il est donc prudent de s'assurer que l'application en cours n'est 

. Q ;: pas le "Finder". S{ tel esr le cas, une tentative d'ouverture de l'accessoire se traduit par 
puisque nous disposons de la : un “Bip” ou, si le volume est à zéro, par une inversion vidéo de ls barre des menus. Notons 
corbeille et, de plus, : enfin que le "Finder" reconnait la destruction d’un (ou de plusieurs) fichier lorsque l'on 


; revient de l'application depuis laquelle l'accessoire a été utilisé. 


dangereux, étant donné que le 
“Finder” n'est pas apte à LEA  FinderName, A0 
reconnaître la destruction d'un 
fichier autrement que par 


; L'adresse où l'on trouve ie nom du "Finder" est 
+ placée dans A0. 

LEA CurApName, Al : L'adresse où l'on trouve le nom de 

; l'application en cours est placée dans Al. 


l'intermédiaire de la corbeille. WH@VE.B  (A0)+,D1 ; Le premier octet contient _ eee de 
. ñ ; Caractères dans le nom du "Finder". 
Une tentative d'ouverture de CÆ.B tA1)+,D1 ; ÎI1 est comparé au nombre de Caractères dans le 


: nom de l'application en cours. 
BKNE.S Le 4 : Si les deux noms ont des iongueurs différentes, 
: l'application en cours n'est Das le "Finder", 
: et on passe à la suite des opératiciis. 
: Si la longueur du nom de l'äpplicatiort en cours est égale à la longueur du nom du "Finder", 


l'accessoire depuis le “Finder” 
se soldera par un “Bip” ou, si 
le volume sonore est à O, par 


une INVEISION de la barre des ; on exécüte une boucle Qui compare les caractères des deux chaînes. Au stade actuel, l'octet 
menus. : de polds faible de R1 contient le nombre de caractères, A0 pointe sur le premier caractère 
* du nom du “Finder”, Al pointe sur le premier caractère du nom de l'application en Cours. 
66 DT PAL â 
+ “.-> Corbeille peut dé EXT D1 : Le bit ? de D1 est coplé dans les bits 8 à 15. 


+ Cela a pour effet de mettre à 0 l'octet de 
: poids fort du mot de poids faible de Dl, qui 
* sera utilisé comme index de boucle. 


truire n'importe quel fi- 
chier, même s'il est ver- 
rouillé, et quel que soit son SUBQ f1,01 ; DJ - nomère de caractères - 1. 
type L'accessoire refuse Boucleverif  CPM8 {40)+, (A1)+ : @n compare deux caractères. 


” CB Di,BouclevVerif : S'ils sont différents, on sort de la boucle. 
seulement de détruire les 
fichiers ouverts (le fichier 
système, l'application en cours 
ainsi que les éventuels fichiers 
qui lui sont liés et le fichier en 


+ Sinon, on va Comparer les deux caractères 

+ sutvants, sauf si tous les caractères ant été 

/ COBparés, auquel cas on sort ausei de 1a 

+: boucle. 

* 51 tous les caractères ont été comparés, on 

‘ trouve -1 dans D1, ce qui signifie Que les deux 
: chaînes sont identiques. 


Cours de traitement). Si l'on BKNE.S Le ; Sinon, vers suite des opératioits. 

essaie de détruire un fichier HOVE #7,- (SP) : L'application en cours est le “Finder”. On éme: 
ouvert, la barre des menus _SYsBeep : un "8ip" de 7/60 seconde et on retourne au 
clignote rapidement pendant Ro Re 

une petite seconde pour + Inversion vidéo de la barre des menus. Elle restera en inverse jusqu'à ce que l'utilissiezsr 


’ > + chotsisse un fichier ou “clique” sur “Annule=" (ou “Cancel"). La routine _FlashMenuB2r es2 
signaler le problème, et nous : utilisée. On empile soit le nurèro du menu à inverser {1 pour le menu "Pomme", par exeŒ'e 


Ë . . 

revenons à l'application en + soit 0 pour inverser toute la barre, comme c'est le cas 1C1. 

Cours. Lo, CLR - (SP) + Deux octets à © au sommet de 13 pile. 
_FlashMenuBar + Appel de 13 routine. 


réatlon d'une fenêtre du tÿpe "bolte à dialoque” 


Les solutions retenues sont CLR.L - (SP) ; 4 octets pour retour du pointeur. 

u : CLR.L - ($2} + Stockége de la fenétre dans le "heap°. 
certainement discutables, en PEA Rectangier + Emplile l'adresse des coordonnées de :z fe 
particulier la possibilité de CiRL (SP) : Fenêtre sans titre. 
détruire à peu près n'importe HOVE #$100,-(SP) + Drapeau indiquant que la fenêtre es= Ts 

, : . PDVE #dBoxProc, -1S5P) + Fenêtre du type "boîte 4 dialogue”. 
quoi, mais nous voulions un PSVED.L #-1,D0 : SFFEFFÉFÉ (-1) dans ie registre de des # 
accessoire efficace qui n'oblige HOVE.L  D0,-(SF) ; emplie -1 pour fenêtre au premier Plaa. 

l' li à li CLR (SP) + Pàs de case d'échappement", 
pas utihsateur à C Iquer sur une CLR.L 1%) ‘ Pas de procédure spéciale (fené"[e 572 
série de boutons “OK” ou _Newindow + Création de la nouvelle fenêtre. 
és CL] : , MOVEA.L (SP )s,A0 + Dépilie pointeur sur la fenêtre, placé == 

Annuler pour parvenir à faire MOVE .L Aë,dCtiWwindow(A4) +: Satvegarde le pointeur dans le “D=” 

uñ peu de place Sur une disquette. MOVE dCtiref}un(A4j,WindowKind{A0) : Indique fenêtre "sÿystère®., 


MOVE .L AD,- (SP) : Empille le pointeur sur le fenétre. 





ju 


SE 


_SetPort 
MOVE.L. dCelmindow(A4),-1(SP) 
FANS 
(SP) 
TextFont 


MOVE. L #3D0010.-1SP) 


_MoveTo + 
PEA ‘Pour trouver Po‘'s . 
_DrawString 
MOVS .L #$1D0010.-(SP] 

_Hovero 

PEA ‘+ les kiosques ou le 39.51.24.43 * î 
_Drawsering 

MOVS.L #$3D0810,-(SP) 

_MoveTo 

FEA ‘Pour suppriser tin fichier :* 
_Drawstring 

MOVE. L #$4D0010,-(5P) 

_MoveTo 

PEA ‘« le sélectionner, 
_DrawString 

PEA gray (AS) ; 
_PénPet 

MOVE .L #$290010.-(SP) 

_MoveTo : 

MOVE .L 1$290108,-(5P) ‘ 
_LineTo ; 


; Affichage de la "bestiole" 


: routine, 


LEA 8ieMip,A6 

LEA Def, A3 

NOVELL AJ, (86) 

NOVE .L A6,-(5e) 

WOVEA.L dEtiNindow(A4),A6 
ADDQ.L #2,A6 

NOVE.L A6, -(SP) 

PEA RectSource 

PEA AectDest 

CLR -{5P) 

CLR.L (5) 

_coprsits 

MOVS . L aCctiwWindowiA4),= (SP) 
_Anadupdate 





La fenêtre devleut le port graphique courant. 
Bpile le pointeur sur la fenétre. 

Début de mise à jour de la nouvelle fenétre. 
£mpije Jdentificateur de la police Chicago (0). 


+: Chicago daviert la police courante. 


cliquer sur 


Déplace le "crayon" en 16 (coordonnée 
verticale) et 13 (coordonnée horizontale). 
+ L'instruceion FEA, lorsqu'on 
: lui communique directement une 
+ chaîne de carectères, eælle 
: l'adresse de la chaîne précédée 
d'un octet indiquant sa 
+ longveur (indispensable à la 
+ routine ”_Drawstring- qui se 
+ chargera de l'affichage de la 
+ chalne}). Au movent de 
+ l'esserblage, la chaîne et 
+ l'octet indiquant sa longieur 
; sont placés à la fin du code. 
"‘Ouvrir'!_ ? 


; Le registre A5 pointe sur las variable globales 


+ parmi lesquelles on trouve la définition des 


“grisès". Le "gris moyen” se trouve d l'adresse 


; pointée par AS, moins 24. 
; Trace une ligne pointillée entre 1a position 
; courante du craÿon et les coordonnées indiquées 


: Adresse de la structure “BitMap” dans A6, 


: Adresse de la 


définition du dessin dans A3. 


+: Adresse de la définition dans la structure. 


; Enpile l'èdresse de la structure "BitMN3p". 


Le pointeur sur la fenétre est Placé dans A6. 
Ajoute 2 au pointeur pour “SitMep*” fenétre. 


: Adresse du "BitM2ap" de là fenêtre dens AS. 


Enpile l'adresse du rectangle source. 


+: Enpile l'adresse du rectangle destination. 
+: Transfert ciassique (PENMOINS 0). 

+: Pes de msque. 

+ Aff1chege. 


i Smile le pointeur sur la fenétre. 
+ Fin de mise à jour de la fenêtre. 


: Appel e’ affichage de la fenétre stendard de sélection des fichiers. Pour appeler la 


employée ici de ia maniére la plus simple, 11 faut empiler, dans l’ordre : 
- la position horirontale de l'angle supérieur gauche de 14 fenêtre (2 octets): 
- 14 position verticale de l'angle supérieur gauche de la fenêtre (2 octets]: 


(positions données en coordonnées globales) 
: - 4 octets à 0 (jamais utilisés); 
; - un pointeur sur une procédure de filtrage des fichiers (non utilisé); 

: - nombre de types indiquant les fichiers à afficher, ou -1 pour afficher tous les fichiers 


(2 octets); 


; - pointeur sur la liste dés types de fichier, où 0 si zone précédente - -l; 
; - pointeur en cas d'utilisation d'une fenêtre personnalisée, 0 sinon: 
: - adresse d'Un tampon de 72 octets utilisé Dôor la routine pour le retour des informations 


+ - Sélecteur 


$eucleFlash 


Suite 


Pom'sn 


{nom du fichier, 
de routine (2 octstzs), 


numéro de référence du voluæe...}); 
2 Pour notre accessoire. 


MOVE. L #$00280014,-1(5P) : Coordonnées, 
CLR. L (SP) “ 9. 
CLR,L - (SP) : Pas de filtrage. 
MDVE é-1,- (SP) +: Tous les fichiers. 
CLR.L -(sæ) + Pas de liste de types. 
CLA.I, -(S&) ; Fenétre standard. 
PEA TamponRep ;: Adresse dü tampon ‘"lamponRep". 
ADVE #sfGetFiie,- (SP) + Selecteur. 
Pack3 : Appel de la rsutine. 
LEA TéaponRep,Al : Adresse de base du tampon dans Al. 
TST rGood(A1} +: Si nul, l'utilisateur à "cliqué" sur 
82. Annuler ; Annuler‘: retour à l'application. 
LEA TamponiO,A0 + Les routines 
CLR.L JoCompletion (A0) : utilisée pour les 
LEA rName (A1),A2 : entrées/sorties 
NOVE .L A2, 10FiieName (A0) : ont été décrites 
OVE rVolume (A1), 1oVRe fus (A0) +: dans les nuœéros 
MOVE .8 Version (Alj.1cF'ileTy pe (A0) : 17 ("Catalogue sur 
Delete : Imprimante”, "BSAVE 
TST (1 + et BLOAD avec le 
8E0.5 Sutte : Basic Ntcrosoft*) et 
+ 18 ("Modifications 
MWEC #i9,D3 +: des informations 
CLA (SP) : pour le "Finder"") de 
_FlashMenuBar : Pom's#. 
DBRA b3,8oucleFlash : TST DD après 
BRA.S Annuler _belete percet de 
: savoir si le fichier 
CLR.L JoCompiet {on (A0) + est en cours 


doVolIndex(A0) 
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: d'utilisation. 





Nous ne nous étendrons pas sur 
son fonctionnement, le source 
(aussi présent sur la disquette 21) 
étant généreusement commenté. 





MacAstuces 


Tous les fichiers créés sur une 
disquette, même s'ils sont mis à 
la poubelle et si celle-ci est vidée, 
laissent une trace sur votre 
disquette et occupent encore de la 
place. Pour y remédier : 


* Initialisez une disquette, 

+ Recopiez tous les fichiers sur 
cette nouvelle disquette. Vous 
aurez toujours vos fichiers, 
mais certainement avec de 
pécieux Ko supplémentaires. 





Après de nombreuses opérations 
de destruction de fichiers, on a 
donc intérêt à "rafraîchir" la 
disquette en recopiant tous ces 
fichiers sur une nouvelle 
disquette, quitte à recopier ensuite 
celle-ci entièrement sur l'original 
afin de garder la belle étiquette 
qu'on y avait collée... 





Un bug 
dans la 
LaserWriter 


"PostScript error” suivi du 
message peu réconfortant 
"Document OK, but cannot be 
rinted” : voilà ce qui arrive 
orsqu'on tente d'imprimer sur la 
Laser Writer un document dont le 
nom comporte une parenthèse 
fermante. 
Merci à Bruno Rives qui nous a 
aidés dans l'analyse, pas 
évidente, de ce bug ! 
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Def 


Tampons et contantes. 


TamponIO 

TamponRep 
RectangleF 
; Structure "BitMap". 
BitMap 

OLBitMap 
RectSource 


RectDest 


SS8RSRRSRSESRSESRS 


Disquette Macintosh numéro 21 


LEA rName (A1}),2A2 


MOYE.L A2,1ioVNPtr {A0) ; Si l'utilisateur de 
_GetVolïinfo ; l'accesseire tente de ë 
_OffLine ; détruire un fichier > Corbeille.R 
MOVE #1,01 ; ouvert, on inverse 

Erreur MOVE Di, ioVRef Num (A0 ; rapidement, et 20 : 
__Mount Val ! ; fois de suite, la *=> Corbeille.Rsre 
MOVE #2,D1 ; barre des menus. 
TST iorResulit (A0) ; On retourne ensuite à TYPE DRVR = PROC 
BNE.S Erreur ; l'application. °-53 Corbeille > 30 


°—5> Corbeille 


; Avant de revenir à l'application, on inverse une dernière fois la barre 
; des menus, afin qu'elle ne reste pas en caractères klancs sur fond noir. 








Annuler MOVE .L aCtiWindow(Ad),-(SP) = 
CLR.L dCtiwindow(A4) el = => Corbeille.Job 
_DisposWindow 
CLR —(S2} &. E> . + 
_FlashMenuBar 7 Asm °-> Corbeille.Asm Exec Edit 
Sortie MOVEM.L  (SP}+,A1-A4 Link °-> Corbeille.Link Exec Edit 
CLR Dé Ruaker °-> Corbeille.R Exec Edit 
RTS 





> Corbeille.Link 
[ 


*-> Corbeille.kel 


DCB.B ioVQE1Size,0 ; 64 octets pour entrées/sorties. 
DCB 36,0 ; 72 octets pour _Pack3. 
LC 198,20,281,368 ; Coordonnées {globales} fenétre. 


OC.L 0 ; Stockage adresse de la définition. 
DC 8 ; Nombre d'octets par ligne. 
DC 0,0,54,64 ; Coordonnées du rectangle source. 


$ 


DC 18,280,72,344 ; Coordonnées rectangle destination. 


$0008, $0002, $0000, $0000, $0004, $Q004, $0000, $0000, $0006, SO00C, $0000, $0000, $0006, $000C, $0000, $0000, $0006 
$000C, $0000, $0000, $0005, $3F 94, $0000, $0000, $0002,$C068, $0000, $0000, $0001, $0010, 50000, 50000, $0002, 50008 
0000, 50000, 50002, $7FC8, $0000, $0000, $0004, $BBA4, 50000, $0000, 50004, $1F04, $0000, $0000, 50004, $2084, 50000 
$0000, $SOO1E, $404F, 50000, $0000, $006A, $404A, $CO00, $FCOO, SOIDF, $209F, $7001, $4A00, $02B3, $DF79, SA802, $3100 
$0561, $FFFO, $D404, $0280, $SOAD4, $SFFES5, $6A09, $2440,$1580, $3F80,S3512,$4120, $2B00, $0000, S1AA4, $9210, $3600 
$0000, $0D90, $2488, $6C00, $5540,S06CAÀ, $4924, $5415, $0015, $0544, $9002, $A940, $0000, $S2A3, $SFFFF, 5D81C, $0000 
$0362, 50001, $A832, $2A80, S02A2, 54445, SD032, S0008, S0162,58889, SB132, S0018, S11A42, 58889, 55432, S$67C3, S8542 
$8889, $703C, $D6A6, $01C2, 58889, S$3030, SD6A3, 50182, $8889,$3130, SD6A1, $8182, $8889, $1830, SD6A0, 58302, $8889 
$0830,$66A7,$0202, $9F89, $0A00, $0000, $SOAO2, $E069,$04A8, S0002, $A403, $8519, $0402, SAAA8, $0402, $2045, $0200 
$0000,$0C02,$8015,$50328, $0002, 59804,50003,50182, $2A88,$3005,$000B,$00C2,$4048,$6008,50801, $0064,$8024 
$CO0A, $1C05, $003C, $8027, $8008, S0E01, $0018, $E0E3, $000A, $0705,$0009,$FFF2,50008, $0381, $0009, $FFF2, $0008 
$0101, $0004, SFFE4, $0005, $000B, $0004, $9F 24, S0004, $0003, S00E2,S$60C8, SE002, $8015, $0317, $515D, $1802, $2045 
$1C08, $1102, 50703, $8A19, $6000, $2080, SO0C2, $6061, S3FFF, SCO7F, $FF83, $SFFFF 





Exemple en TimesBoild 12 : 


Le programme source etant 








Outre les fichiers et programmes listés dans ce numéro, vous 
trouverez sur cette disquette les polices TimesBold (10, 12, 14, 
18 et 24 points), TimesBoldltalic (10, 12, 14, 18 et 24 points), 
Timesltalic (10, 12, 14, 18 et 24 points), HelveticaBold (10, 
12, 14, 18 et 24 points), HelveticaBoldOblique (10, 12, 14, 18 
et 24 points), HelveticaOblique (10, 12, 14 et 18 points), 
CourierBold (10 et 12 points), CourierBoldOblique (10 et 12 
points) et CourierOblique (10 et 12 points). 


Ces polices remplacent avantageusement, lorsqu'elle sont 
employées en gras ou en italique (ou les deux), celles de 
fimprimante LaserWriter. Les caractères affichés à l'écran sont 
beaucoup plus lisibles et l'impression (sur ImageWriter) plus 
fidèle. 
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largement commenté, nous 
nous bornerons à indiquer ici 
les caractéristiques princi- 
pales du déroulement de la 
routine. 










Exemple en Timesgras 12 : 


Le programme source étant 
largement commenlé, nous 
aous bornerons à indiquer 
ici les  caructéristiques 
priacipales du déroulement 
delaroutise. 
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EN 








et article n'enrichira 

guère votre Basic, qui 

dispose déjà d'instruc- 

tions (telles que 
WINDOW, EDIT FIELD ou 
EDITS) pour vous pennettre la 
saisie de variables via fenêtres et 
gestion de texte. 


En revanche, peut-être vous 
apportera-t-il quelques éclaircis- 
sements sur la façon dont 
s'opèrent la manipulation des 
fenêtres et l'édition de textes au 
niveau du système, et donc sur le 
type de routines utilisées par le 
Basic. 


Les opérations à réaliser dans le 
cadre du programme en 
assembleur listé plus loin sont les 
suivantes : 


+ Ouverture d'une fenêtre dont 
on donne les limites, via un 
tableau du Basic. 

+ Ouverture d'un “texte 
éditable"”, dont on indique de 
même les limites “visibles” et 
les dimensions. 

+ Saisie de texte. 

+ Utilisation de la souris pour 
déplacer le curseur, placer un 
point d'insertion de texte, ou 
sélectionner un ‘morceau” de 
texte en vue de l'effacer. 

° Retour au Basic lors de la 
frappe de la touche RETURN 
ou de la touche "commande" 
(et ce quelle que soit la position 
du curseur à cet instant). 
Récupération du texte dans une 
variable chaîne de caractères, 
dans la limite d'un nombre 
maximum de caractères indiqué 
au départ par la longueur de la 
chaîne. 


A paitir du Basic, cette routine 
s'appelle de manière classique, 
avec passage en paramètre du 
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pointeur sur le descripteur de la 
chaîne utilisée pour le transfert 
(voir programme-exemple). 


Principes de 
fonctionnement 


Le programme source étant 
largement commenté, nous nous 
bomnerons à indiquer ici les 
caractéristiques principales du 
déroulement de la routine. 


Variables de travail 


+ Lorsque se produit un 
“événement” (enfoncement d'une 
touche, déplacement de la souris, 
clic...), il se caractérise par un 
certain nombre d'informations : 
type de l'événement, contenu, 
résultat, type de touche ou de 
"clic" Ces informations sont 
retournées dans une zone de 
stockage dont l'adresse doit être 
indiquée à la routine chargée de 
saisir les événements 
(GetNextEvent). La zone 
baptisée Evenement est utilisée 
pour cela. 


+ Un texte éditable comporte une 
zone de visibilité (ViewRect dans 
notre exemple) et une zone de 
stockage qui lui est au moins 
égale (DestRect). 


- FenetreStockage est réservée 
pour le stockage de l'ensemble 
des informations nécessaires à la 
gestion d'une fenêtre par le 
système. 


Principales 
routines utilisées 


+ NewWindow, comme son nom 
l'indique, permet d'ouvrir une 


| 
el 


LES 


TS 


Gérard Michel 


nouvelle fenêtre dont on indique 
les paramètres, en particulier les 
dimensions, le type et le titre 
éventuel. Cette fonction 
retourne un pointeur sur la 
fenêtre, qui permettra ensuite 
d'appeler les fonctions de gestion 
des fenêtres, par exemple SetPort 
qui spécifie le “port” 
d'entrée/sortie à retenir par les 
autres routines. 


+ TENew ouvre un enregis- 
trement "texte éditable”, dont on 
indique au préalable les zones de 
visibilité et de stockage. Cette 
fonction retourne un “Handle"“ 
(c'est-à-dire un pointeur sur 
l'adresse d'un pointeur) sur 
l'enregistrement texte ainsi 
constitué, "Handle” qui permettra 
l'appel des autres routines 
d'édition de texte. TEActivate 
active l'édition de texte, tandis 
que TEldle fait apparaître le 
curseur et détermine ainsi le point 
d'insertion du texte. 


+ TEGetText, moyennant l'indi- 
cation du ‘“Handile” sur 
l'enregistrement texte, retourne 
un "Handle” sur les caractères qui 
le constituent, autorisant 
finalement l'accès au contenu 
même du texte, en termes de 
codes ASCII. A noter par ailleurs 
que les deux octets qui se 
trouvent à $3C et $3D du début 
de l'enregistrement texte 
contiennent la longueur du texte, 
et donc le nombre de caractères. 


. TEKey assure pour sa part 
l'édition d'un caractère, soit 
affichage et stockage dans le texte 
(il faut lui passer en paramètres, 
via la pile, le code ASCII du 
caractère en question et le 
"Handle” sur le texte concerné). 
TEClick prend en charge les 
"clics" dans le texte (inseition du 
curseur ou sélection d'une zone). 











+ GlobalToLocal convertit les 
coordonnées de la souris 
retournées par GetNextEvent, 
calculées par rapport à l'écran 


fenêtre active, 


Programme de [3] 


L4 Li C? = 
démonstration = 
DEFINT A-Z 
VV$S-SPACES(256) 

DIM C(323)d$(4) 


DATA 0,0,0,0,0,0,0,0,0,0 

* Rectangles de la fenêtre et du texte 

DATA 50,40,70,200,3,2,18,150,3,2,18,150 

‘ Début du code de ja routine 

DATA &H4E56,0,&H42A7,&HA924,8&H261F 
DATA &H42A7,&H487A,&HFEBA,&H487A 

DATA SHFE9E,&H42A7,&H1F3C,-1,&H3F3C, 1 
DATA &H2F3C,-1,-1,&H1F3C,0,&H2F3C,0,0 
DATA &HA913,&H2657,&HA873,&H42A7,&H487 A 
DATA &HFE88,8&H487 À, &HFE7C,&HA9D2 

DATA &H2457,&HA9D8,&H2F0A,&HA9DA 

DATA &H4267,&H3F3C,&HOFFF,&H487 A, &HFE4C 
DATA &HA970,&H301F ,&H67EC,&H6046,&H2F0A 
DATA &HA9CB,&H285F,&H2254,&H2852,&H322C 
DATA &H003C,&H206E,8,&H1828,1,&H2028,1 
DATA &H0280,&H00FF, -1,&H2840,&H7000 

DATA &HB041,&H6700,10,&H5240,&HF8D9 
DATA &HB800,&H66F2,&H2F0A,&HA9CD 

DATA &H2F0B,&HA92D,&H2F03,&HA91F,&H2F03 
DATA &HA873,&H4E5E,&H4E75,&H383A 

DATA &HFE08,&H303A,&HFDF6,&H0C40,1 

DATA &H6700,&H0032,&H0C40,3,&H6700, 12 
DATA &H0C40,5,&H6700,4,&H6682,&H0804,8 
DATA &H6692,&H3F3A,&HF DD6,&H301F,&H0C00 
DATA 13,&H6786,&H3F3A,&HFDCA,&H2F0A 
DATA &HA9DC,&HA4EFA,&HFF66,&H4267 

DATA &H2F3A,&HFDC2,&H487 A, &HFDC4 

DATA &HA92C,&H301F,&H0C40,3,&H6600 


dans son ensemble, dans le 
système d'axes déterminé par la 


l'insertion à l'endroit voulu. 





+ Les autres routines, relatives à 
la manipulation des fenêtres, 


afin d'assurer parlent d'elles-mêmes... 


G 


DATA &HFF50,&H42A7,&HA924,&H201F,&HB08B 
DATA &H6700,12,&H2F3A,&HFDA8,&H A91F 
DATA &H4EFA,&HFF3A,&H487 À, &HFD98 
DATA &HA871,&H2F3A,&HFD92,&H103C,0 
DATA &H1F00,&H2F0A,&HA9D4,&H4EFA,&HFF22 
FOR i-0 TO 21:READ ci): NEXT 

"zone de stockage de la fenêtre 

FOR i-22 TO 177:c(i)-0:NEXT 
FOR i-178 TO 323:READ c(i: NEXT:DE=178 

10 CLS:V$=LEFT$(vv$, 15):A!-V ARPTR(c(DE )) 
A! VARPTR(VS) 
d$#(1)=v$ ‘ v$ comporte 15 caractères, dont des 
‘blancs à la fin si nécessaire 

"déplacement de la fenêtre 
c(10)-80:c(11)-40:c(12)-100:c(13)-200 
v$=LEFTS$(vv$,15):A!-VARPTR(c(DE )) 
A! VARPTR(VS) 

d$(2)=v$ 

‘ déplacement et changement de dimension 
c(10)-100:c(11)-20:c(12)-250:c(13)-450:c(14)-3 
c(15)=4:c(16)-130:c(17)-420:c(18)-3:c(19)-4 
c(20)-130:c(21)-420 
VS=-LEFTS(vv$,255):AI=VARPTR(c(DE )) 

A! VARPTR(VS) 

d$(3)=v$ 
c(10)-80:c(11)-240:c(12)-100:c(13)-400:c(15 )=2 
c(16)-18:c(17)-150:c(19)=2:c(20)-18:c(21)=150 
v$=LEFTS$(vv$, 15):AI-VARPTR(c(DE)) 
A! VARPTR(VS) 
d$(4)-v$ 

CLS:FOR i=1 TO 4:PRINT OS(i) 
PRINT LEN(d$(i}) NEXT 
INPUT z$ 
IF z$-"" THEN c(10)-50:c(11)-40:c(12)-70:c(13) 
=200:GOTO 10 





Source de la routine en langage machine 


.Trap __NewWi ndow 
.Trap _SetPort 

.- Trap _TEïdle 

.Traäp _GetNext£vent 
.Trap _TENew 

.Träp _TEActivate 

- Trap __TEGet Text 

. Trap _TEDispese 
-Trap _TEKey 

- Trap _FindWindow 

. Trap _FrontWindow 
. Trap _SelectWindew 
.Trap _GlobalToLocal 


.Trép 
. Trap 


_TECIick 
_CloseWindow 


 ] 


SA913 
SA873 
SA9BA 
SA970 
SA9D2 
SA9B8 
SA9CB 
SA9CB 
SA9BC 
SA92C 
SA92Z4 

$A91F 
SA871 

SA9D4 

SA92B 
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0000 
0000 
0000 
0000 
0000 
0000 


0032 
0003 
0003 


XXXX 


4E56 
42A7 
A924 
261F 


42A7 
487A 
487A 
42A7 
1F3C 
3F3C 
2F3C 
1F3E 
2F3C 
A913 
2657 
A8 73 


42A7 
487A 
487A 
A9D2 
2457 
ASD8 


2F0A 
A9DA 
4267 
3F3C 
487A 
A970 
301F 


0000 
0000 
0000 


0000 


0028 0046 00C6 
0002 0012 0096 
0002 0012 0096 


XXXX KXXXX 


0000 


FEBA 
FE9E 


FFFF 
0001 
FFFF FEFFF 
0000 
0000 0000 


FE88 
FE7C 


CFFF 
FE9C 


67 EC 
60 46 


2F0A 
ASCB 
285F 
2254 
2852 
322C 
206E 
1828 
2028 
0280 
2840 
70 00 


003C 
0008 
0001 
0001 
OOFF FFFF 


Evenement 
Quoi: 
Message: 
Quand: 
Point : 
Modifie: 
WFenetre: 


Rectangle 
Viewkect 
DestRect 
FenetreStockage 
ModifieReg 
TextAReg 


FenetrelïReg 
CMDKEY 


MAJFrenetre 


MAJTextEdit 


Boucle 


Sortie 





; Caractéristiques de l'événement 
DC (e) Type É 2) 
ÆS 


DC.L 0 ; Information complémentaire 

BC 0 » Moment Se 
DC.L 0 ; Coordonnées Souris @) 
DC 0 ; Etat touche et bouton 

DC.L (e ; Résultat de recherche de ferétre 
DC 50,40,70,200 ; Rectangle de la fenêtre 

DC 3,2,18,150 ; Rectangle de visibilité du texte 
DC 3,2:18:,150 : Limites du texte 

DCB $9C, 0 

EQU D4 : Bits de modif. par GetNextEvent 
EOU A2 ; "“Handle" sur le texte 

EQOU A3 ; “Handle'" sur la fenêtre 

EQU 8 ; Signale usage touche “commande“ 
LINK A6,#0 

CLR.L — (SP) 

_FrontWindow 

MOVE.L (SP) +,D3 : Sauvegarde Handle fenêtre initiale 
CLR.L — (SP) ; Ouverture d'une nouvelle fenétre 
PEA FenetreStockage 

PEA Rectangle 

CLR.L-(SP)} Sans titre 


Visible de suite 

De type "boîte à dialogue" 
Devant toutes les autres 
Sans “carré de fuite’ 


MVE.B #-1,-(SP) 
MOYE #1,-(SP) 
MOVE.L #-1,-(SP)} 
MOVE.B #0,-(SP) 
MOVE.L  #0,-(5SP) 


Ve Ve Ve Va ve 


_NewWindow 

MOVE.L (SP),FenetrePReg 

_SetPort : Nouvelle fenêtre = port entrée/so. 
CER.L — (SEP) : Ouverture d'un texte éditable 

PEA DestRect 

PEA ViewRect 

__TENew 

MOVE .L SP),TextHReg ; Dont on récupére le Handle 
_TEActivate ; Et que l'on active 


M@VE.L TextHReg,-(SP) 


_TEIdle +: Curseur clignotant 

CLR (SP) 

MOVE #SOFFF, — (SP) z; Autorise 12 types d'événements 
PEA Evenement 

_GetNextEvent ; Un événement ? 

MOVE SP] +4,D0 

BEO Boucle Non... Attendre... 


eo ve 


BRA.S Traitev Oui... Le traiter 
MOVE.L TextHReg, -(SP) 
_TEGetText 

MOVEA.L ({SF)+,A4 


11 faut récupérer le texte 
Avant retour au Basic 
Pointeur/handle sur le texte 


MOVEA.L (A4)j,A1 : Al=adresse des caractères 

MOVE2.L ({A2),2A4 : Ag=adr. de l'enregistrement Texte 
MOVE S3C(A4),D1 : Longueur du texte 

MOVEA.L 8(A6), A0 : Récupère le descripteur de chaîne 


MOVE.B  1(A0),D4 ;» Longueur de la chaîne (< 255} 
MOVE.L 1(A0),D0 ; Adresse de la chaîne 

ANDI.L #SOOFFFFFF,DO ; Convertie en 1 mot long 
M@VEA.L DO, A4 
MOVEQ #0,»0 


DO=nombre de caractères copiés 


ve 
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49 








50 


BO41 

67 OO 00 OA 
5240 

18D9 

B800 

66 F2 


2FO0A 
A9CD 
2F0B 
A92D 
2F03 
A91F 
2F03 
A873 
4ESE 
4E75 


383A FE08 
303A FDF6 
0C40 0001 
67 00 00 32 
0C40 0003 
67 00 00 0C 
0C40 0005 
67 00 00 04 
66 82 


0804 0008 
66 92 
3F3A FDD6 
301F 

0C00 000D 
67 86 
3F3A FDCA 
2F0A 

A9DC 

4EFA FF66 


4267 

2F3ÀA FDC2 

487A FDC4 

A92C 

301F 

0C40 0003 

66 00 FF50 
42A7 


A924 

201F 

BC8B 

67 00 00 OC 
2F3A FDAB 
A91F 

4EFA FF3A 


387A FD98 
A871 
2F3A FD92 
103C 0000 
1F00 
2F0A 
A9D4 
4EFA FF22 


Compare 


Fini 


Traitev 


Touche 


Souris 


Dsuite 


CHP D1,D0 ; 
BEQ Fini ; texte en contient ? 
ADDQ #1,D0 LS 
MOVE .B (Al)+, (A4)+ ; Transfert "éans" la chaîne 
CMP.B PO,D3 ; Autant de caräctères que la 
BNE Compare ; chaîne peut en contenir ? 
MOE.L TextHkReg,-(SP) 
_TEÉDispose ; Rend place du texte à la machine 
MOVE.L A3,-{SP) 
__CloseWindow ; Ferme notre fenêtre 
MOVE.L D3,-{SEP) 
_SelectWindow ; Remet en activité fenêtre initiale 
MOVE.L D3,-(SP) 
_SetPort 
UNLK A6 ; Retour au Basic 
RTS 
MOVE Modifie,ModifiekReg 
MOVE Quoi,DO ; Quel type d'événement 
CHPI #1,D0 ; Glie 
BEQ Souris 
CMPI #3,D0 ; Touche 
BEQ Touche 
CMPI #5,D0 ; Auto-répétition d'une touche 
BEQ Touche 
BNE Boucle ; On ne prend gas les autres 
BTST #CmoKey,ModifieReg » Touche commande ? 
BNE Sortie ;: Si oui => sortir 
*MOVE Messaget+2,-(SP) 
MOVE (SP) +,D0 
CMPI.B #13,D0 ; Touche RETURN ? 
BEQ Sortie 
MOVE Message+2,-(SP) ; Sinon, faire éditer le caractère 
MOVE.l: TextHReg,-fSP) 
_TEKey 
BRA Boucle 
CLR — (SP) 
MOVE.L Point,-(SP) 
PEA WFenetre 
FindWindow ; Où s'est produit le clic ? 
MOVE (SP)+,D0 
CMPI #3, DO ; Dans la zone "contenu" ? 
BNE Boucle 
CLR.L — (SP) 
_FrontWindow * Si oui, notre fenêtre est-elle 
MOVE.L fSP) +,D0 
CMP.L FenetrePReg, DO ; toujours active et "au-dessus" 
8E0 Dsuite 
MOLVE.L WFenetre,-(SP) ; Si non, la ré-activer et attendre 
_SelectWindow ; un autre évènement 
BRA Boucle 
PEA Point 
_GlobalTolLocal ; Convertit dans le système de 
MOVE.L Point, -(SP) ; coordonnees de la fenêtre 
MOVE.B #0, DO 
MOVE.B DO,-{SP) ; Pas de clic "majuscule" 
MOVE. L TextHReg, - (SP) 
_TECIick ; Fait "editer" le clic 
BRA Boucle 


Autant de caractéres que <R = 
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La 36ème piste 





B. Toméno 


Ou 526 secteurs disponibles 


ne disquette "normale", 
formatée sous DOS 3.3, 
comporte, comme 
chacun sait, 35 pistes de 


16 secteurs, soit 560 secteurs 
dont seulement 496 sont 
disponibles pour l'enregistrement 
des programmes puisque le DOS 
se réserve 48 secteurs (pistes 
00,01,02) et qu'il en alloue 
encore 16 pour le stockage du 
catalogue et de la VTOC (piste 
17) : voir schéma ci joint. 

Or le DOS ne se sert réellement 
que de 37 des 48 secteurs qu'il se 
réserve (il utilise la totalité des 
pistes 00 et 01, mais seulement 5 
secteurs de la 02, à savoir les 
secteurs 00 à 04) . De même 
CATALOG et VTOC laissent 
inoccupés 5 des 16 secteurs de la 
piste 17, à savoir les secteurs 01 à 
0S. Recupérer les 11 secteurs 
libres de la 02 et les 5 de la 17, 
c'est une piste gagnée ! 
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Vtoc 
2#2000000000000096090000 
S52585888888830088000000 
@088000000000000006000000 
@0608000000000000008000000 
@086000000000000006000000 
st oo oooocodedoceu 
S80000000000000008000000 
@066000000000000008000000 
@086000000000000008000000 
@066000000000000008000000 
S880000000000000080000008 
@066000000000000008000000 
@066000000000000008000000 
| récupérables 

Catalog 
36ème piste 


Le formatage en 35 pistes n'est 
qu'une habitude; en fait il y a sur 
une disquette de quoi tracer une 
36ème piste que 95% des lecteurs 
sont capables de lire. On peut 
ainsi encore gagner 16 secteurs et 
on arrive à 496 + 16 + 16 = 528 
secteurs-utilisateurs. 


La pratique 


Tout d'abord il faut se munir d'un 
éditeur de secteurs genre 
DISK-FIX maïs tout autre peut 
convenir (COPY Il+ 4.3, 
NIBBLE AWAYS...) y compris 
ceux publiés dans Pom's (voir 
Mobby disk dans n°15 ou Accès 
direct dans le n°16). 


La manœuvre se fait en 5 temps 
(les 4 premiers modifient la 
VTOC, secteur 00 de la piste 17). 











O000000000000000 
O000000000000000 
O000000000000000 
O000000000000000 
O000000000000000 
O000000000000000 
O000000000000000 
O000000000000000 
O000000000000000 
O000000000000000 
O000000000000000 
9806866099660088666 


Plan d'occupation des 
secteurs d'une disquette 


1 Initialiser une disquette avec 

votre Hello préféré... mais 
après être passé en moniteur (Call 
-151) et avoir remplacé la valeur 
de $BEFE (normalement $23) par 
$24! Ceci va entrainer un 
formattage sur 36 pistes lors de 
l'initialisation. Charger votre 
éditeur de secteurs et lire le 
secteur 00 de la piste $11 (17). 
Sur la 7ème ligne (si votre éditeur 
affiche des lignes de 8 octets, ce 
qui est le cas habituel sauf pour 
NIBBLE AWAYS) l'octet $35 (le 
S3ème du secteur, le Sème de la 
ligne 30) doit être à $24, et non 
pas à $23 comme sur une 
disquette normale. (Une autre 
possibilité pour faire cette 
première manipulation est de 
formatter directement une 
disquette sur $24 pistes avec un 
utilitaire Ad Hoc puis de 
remplacer $23 par $24 avec votre 
éditeur de secteurs sur le secteur 


33 



























00 de la piste $11). 


2 Informer le DOS que cette 

36ème piste est inoccupée : 
toujours sur le secteur O0 de la 
piste $11 remplacer en ligne $C0 
les 5ème et 6ème octets (00 00) 
par FF FF. 


3 Dire au DOS que les secteurs 
01 à O5 de la piste $11 sont 
libres. Toujours sur le même 
secteur, lire en ligne $78 les Sème 
et 6ème octets, normalement à O0 
00, et les remplacer par 00 3E. 


4 Déclarer que les 11 secteurs 

($5 à $0F) de la piste 02 sont 
disponibles. En ligne $40 du 
même secteur remplacez les octets 
1 et 2 (00 00) par FF EQ. 
Réécrivez alors le secteur 00 sur 
la disquette 


5 Le Sème temps se fait en lisant 

le secteur $06 de la piste $11. 
Lire ce secteur et sur la lère ligne 
($00), remplacer par 00 00 les 
octets 2 et 3 (normalement 11 O5, 
ce qui indique au DOS de 


poursuivre le CATALOG sur la 
piste $11, secteur $05, au cas, 
bien improbable, où le catalogue 
serait si fourmi que les secteurs 
$06 à $OF ne lui suffiraient pas) : 
si le DOS veut poursuivre 
l'écriture du catalogue sur les 
secteurs 01 à OS de la piste 17, il 
est ainsi informé que ceux ci ne 
sont pas disponibles. 


Réécrivez maintenant ce secteur 
06 sur la disquette. Voilà, vous 
avez gagné 36 secteurs soit 2 
pistes. 


Si vous faites la même chose sur 
une disquette sans DOS (le cas 
des disquettes réservées au 
stockage des fichiers d'un tableur 
ou d'un traitement de texte par 
exemple, mais vous pouvez vous 
les fabriquer vous même avec 
DISK-FIX ou d'autres 
programmes permettant de 
supprimer le DOS) vous obtenez 
des disquettes de 564 
secteurs-utilisateur . 564 et non 
pas 576 comme le voudrait 


Vos textes en direct de votre ordinateur 


à nos photocomposeuses 


Gain de temps et économie 





1636, car il faut quand même 
garder un peu de place pour 
Catalogue (10 secteurs), VTOC (1 
secteur) et message de BOOT 
éventuellement( secteur 00 de la 
piste 00). 


Evidemment pour copier une 
disquette ainsi batie il faut prendre 
un uwlitaire capable de reconnaitre 
la piste 36 : le plus rapide semble 
être encore ” MUNCHER ‘ 
(moins de 30 secondes !) tandis 
que Locksmith ou Crazy Copy le 
feront en quelques minutes 
(répondre $23 à la question "End 
track"). 


Encore une remarque : cette 
manœuvre est aussi possible avec 
les DOS non standard (Z-DOS et 
compagnie) d'autant que certains 
d'entre eux sont encore plus 
courts que le DOS normal. 







Les textes de vos articles, catalogues, 
annuaires ou brochures saisis sur 
otre micro-ordinateur sont envoyés 
directement sur notre 
photocomposeuse 














Les textes de vos 
articles 


calalogues, 
annuaires 


Nous vous évitons ainsi, 
te coût et le temps de la saisie 
supplémentaire que 
nécessite le traitement 
traditionnel de la photocomposition 
avant l'impression des documents. 










ou ures 
saisis sur votre 









Si vous le désirez nous pouvons 
également nous charger 
de l'impression et du brochage. 








m1 
Tor == 








13 et 15, avenue du Petit-Parc - 94300 VINCENNES 


52 Pom's n° 21 





Y van Koenig 


e titre un peu provo- 

cateur reflète ma 

première réaction 

après examen du kit 
de mise à niveau //c pour l'Apple 
lle. On ne trouve en effet pas 
moins de 1094 octets différents 
dans les ROM des adresses 
$D000 à $FFFF qui regroupent 
l'interpréteur Applesoft et le 
moniteur. 


De plus, les ROM intermes en 
$C100 sont totalement 
différentes. 


Finalement, les différences de 
codage n'induisent pas de très 
gros problèmes de compatibilité. 
La plus grosse déception est due à 
la fonction LIST du moniteur qui, 
bien que légèrement recodée, ne 
reconnaît pas les nouvelles 
instructions du processeur 
65CO2. 


On retrouve sur //e+ les fonctions 
de lecture/écriture sur cassette qui 
avaient été supprimées sur le //c. 


En revanche, les routines 
LORES80 du //c qui permettent de 
manipuler la basse résolution sur 
80 colonnes n'existent pas sur le 
nouveau //e+. Il auraît peut-être 
été préférable de les inclure, plutêt 
qu'un Mini-Assembleur extrait du 
moniteur du tout premier Apple II 
qui, lui non plus, ne reconnaît pas 
les nouveaux opcodes du 65C02. 


Certains petits détails peuvent 
finir par agacer : certaines routines 
identiques (minMAJ, spLINPRT, 
EOL?, sbCH) ne sont pas 
implantées à la même adresse. 
L'adresse $1F de la page zéro 
n'est finalement exploitée que par 
l'ancien Apple //e. 


L'octet en $E006, qui valait 
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Un compatible 


in compatible ? 


toujours $00 sous Applesoft, 
contient un $C4 sur le //e+, ce qui 
provoque quelques plantages pour 
les programmes qui utilisaient cet 
octet comme test de référence 
(exemple David-DOS) : il vaut 
mieux désormais référencer 
l'adresse $E050,. 


Sur le plan hardware, quelques 
problèmes d'images graphiques 
"déchirées" peuvent survenir avec 
la ROM vidéo du kit de mise à 
niveau fournie par Apple; si cela 
vous ariive faites-en une copie sur 
une EPROM rapide. De même, 
Apple USA reconnaît que certains 
chips MMU (références 8314, 
8424, 8425, 8426) sont “buggés" 
et créent des problèmes avec les 
cartes 80 colonnes étendues. 


Les tableaux suivants reprennent 
l'ensemble des différences 
relevées entre Il+, //e, //e+ (ainsi 
a-t-on baptisé le //e après mise à 
niveau) et //c, pour respectivement 


les bancs d'adresses 
$DO00-$F7FF, $F800-FBFF, 
$FCOO-$FFFF. Afin d'alléger ces 
tableaux, les conventions 
suivantes sont appliquées: 
"," indique une instruction 
identique à celle du Il, 
+" indique une instruction 
identique à celle du //e, 
indique une instruction 
identique à celle du //e+. 


NDLR : Dans un prochain 
numéro, nous publierons la 
routine DESASMI/IRAM 
{assembleur Big Mac) d'Yvan 
Koenig qui permet de 
désassembler correctement les 
instructions du 65C02. On 
bascule entre les deux 
désassembleurs par Ctrl-Y, puis 
on utilise comme d'habitude la 
commande L du moniteur. 


Comparaison du contenu des ROMs de $D000 à $F7FF dans les APPLE : 


DO34- DA S$P775-1 .. se. mnnnuus 


D@4E- BA SF3BC-! 
DOS0- BA SF39F-I 


DoéC- DA SBaC3-1 
D965- DA $D880-1 


D56D- LDA 5200,X 


D56D- JSR 5F78C 


D5A8- LDA $200,X DSA8- JSR $F78C 


D58E- LOA $201,X 


DSES- LDA 5200,X 


DSBE- JSR $F787 


DSE9- JSR $F78C 


…. onvse D60B- JSR $F73A 


D6F$- JSR $EB24 


D6F9- JSR SF7AA 


C705- LOA 524 
D?707- CNP #33 


D70S- JSR SF784 
»70B- N@& 


D883- SBC $67 
D885- STA 550 
D887- LBA $BO 
D88$- sBC S68 
D888- STA 551 


D034- DA S03F5-1 SAL@AD renplacé par 6 


D043£- DA $S03F5-1 
DoSé- DA SO3F5-1 


RECALL reTDlacé par 6 
SIURE rémpiacé psr & 


D86C- DA SO3F5-1 
DO68- DA 503F5-1 


1LCAD rerplacé per 6 
SAVE refPlacé par € 


nouvelle recherche des 
caractères en eetrée 


DS6D- JSR $D8B5 
D5AS- JSR $D8BS 
DS5BE- JSR $D8B0 
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Comperalsan du contenu des ROM de 8FCO0 à $FFFF dans les APPLE : 


Li 


PCDE- 8KQ STC62 
FCI10- DSC $174 
eCi2- &pL SPC 


FCZ2- LOA 525 


FC58- 860 SFCIC 


FC38- ADC #5FD 
FC38- BCC $FC96 


FCAA- JER $FCSS 


FC78- LDA $39 
FCIC- STA $28 
FC7e- 10? $2] 
PCcé0- DEY 

fC81- PLA 

FCR#- ADC #$01 
FCSI- CNP 523 
FC46- 8CS SFC9S 
FC28- PHA 

FCU9- USA SFC 54 
FCéc- LDA 1528), 
SOL STA (834), V 


le 





FC42- LO: 4$00 
FC44- 180 SFC?72 
fCaé- (C) 1981- 


FC4F- 82, APPLE 


FC70- LDr #$02 

FC?72- JNP SFASS 
FC75- PKA 

FC76- LOA $C018 
FC79- ASL 

FCYA- PLA 

FC7B- 8IT $CotC 
FCIE- PNP 


FC81- STA $C054 


FC84- BIT $C015 
PC8T- STA pC006 
PC&a- CLI 
PCea- Si 
FCac- BPL S$FC91 
FCS&- &TA $C007 


les 


FC24- STA 528 
FC26- TYA 
FC27- LDY 4504 
FC2$- BNE SPAB4 
FC25- KEX 00 





FC40- &NE SFBFC 
FC42- LDY 4#50A 

FC44- ANE $FC29 
£C46- BIT SCOIF 
FC+9- BPL SPC4F 
#C4B- LDY #$00 
FC4D- BEQ SFCSA 
EC4F- TYA 

FCS0- PHA 

PCSI- JSR SFB78 
PCS4- PLA 

F#CS5- LDY 535 


Fc?70- LOV #506 
FC72- ANE SFC29 
FC?74- STA SC0OS 
FC77- JNP 1$03FE) 


£C78- STA $07F8 
FC7£- CNP #S$CI 
fFC80- BCC S$SFCEF 


FC82- STA SCFFF 
FC85- LDY #$00 
FC87- LOA 501 
FC8$- STA 501 
FC8B- LOA (500, ,Y 
FC8D- STA $01 
FC8F- STA $C007 


#c 
FCO6- HEQ $FC73 


FC10- JSR SFEEZ 
FC13- APL SFBEC 
FCIS- LDA 571 

FCU7- JSA SFES8 


“su. sus 


FC22- BRA $FCS6 
FC24- ... 


FC27- LDA $20 
FC25- BIT SCO1F 
FC2C- BPL SFC30 
FC2ZE- LSR 

FC2F- CLC 

FC30- ADC S28 
FC32- STA 528 
FC34- RTS 

PC35- TYA 
FC36- LDX s$516 
FC38- CMP $SFOPE, X 
FC3B- 8F@ $FC80 
FC3D- O€X 

FC3E- PI. SFC38 
FC40- RTS 

FC41- 4EX FF 
FC42- GRA SFC5D 
FC44- ,,. -_ 
FC46- ... 

ETUOT= pos coco e 
FCAA= jé sos 
ETD= vue 
EC - 

FCSO- IA 

FCSI- CAP 525 
FC53 BCC SIC46 
FCSS- ECS SFC23 
#CS7- KEX £F 
FC38- JSR SCDAS 
FC38- 6RA SFC49 
FCS0- JSR SD “RICK*Auricchio 
FC60- BRA S$FC44 

FC62- 6RA SFC73 

FC64- PLX.PLX 277 


FC6C- ACC $SFT88 
FC70- JNP SCB5S 


FC73- JSR SFEgs 
FC76- BIT S0SFB 
FCIS BPL SFC8S branche #1 Pascai 
FC?9- JSR SFDs4 

FC?E- BRA SFC6S 

FC80- LDA SFFIS,X 


EC83- LDY #500 
ÉCes- RTS 

ÆC86- LDA $25 
ÆC88- STA SOSFs 
FCBB- ERA SFC34 
ÆFC8D- JSR $OC9D 
ÆC30- IDA #° ” 


nouveau CLASOL 
nouveau CLÉQLE 


FC90- D&Y 

FC91- BHPL SPCEC 
FC93- AM] SFC?76 
FC935- iDY 8500 
FC37- JSR $FC9E 


FCIA- BCS $FC22 
ecsCc- Dr 524 


FC38- EDA #$00 
FOO- STA 1526),Y 


FCA?- NY 
FCAS- CPY #Sz1 
FCAS- &CC $PCAO 
FPCAI- RTS 


eCs- 1DY 8548 


#Ce5- LDY $C020 


SCSA- DEX 


FCr6- DEYr 


æD09$- CPV #$00 
#FD08- HTS 

€D0C- LDY 524 
#FDO0B- LDA (528),Y 
FD10- PNA 

FD11- AND 9556 
FD13- ORA 4560 
PDIS- STA 1528),*Y 
FD17- PLA 

FDIB- INC $45 
FD1D- &NS $F021 
FOIF- INC 547 
F021- BIT SCO000 
F024- epz $r012B 
#028- STA ($26;,Y 
#028- LDA SC000 


FC91- PLP 
FC92- BCC $5C59 


FC94- BPE 55C59 
FC96- BIT $C055 


FC3F- SIV $1F 


FCAI- LOY 6503 
FCAJ- BCC $6C72 








FDIB- LDY F$06 
FDID- JMP SPR54 
FD20- Ne 
FD21- JSR $FD0C 
FD24- LDY #507 
FD26- JNP $PAB4 
FD29- STA $C006 


FC92- JNP $C47C 


ÆC9S- BCC $FC9S 
FC97- AND {33 


FC99- JP $FDF7 


FCAÏi- LOY 6507 
FCAI ECS SF010 


FCAS- BNE $FDI0 
ECCS- STA $C007 
MCC- JSR 5C567 
ECCP- JNP SEECS 
ECDz- STA $C00ë 


ECDS- JSR $FS4A 
FCDS- LDA #$DE 


TLA- JR $EDED 
FCOD- JSR SPPIA 


FCKO- JNP SECrO 


ECS3- STA $C006 
ECE6- JSR $F800 


ECE3- JSR $7853 


FCEC- STr 538 
ECE5- STA S$3A 
FCPO- LDA #SAI 
FCF2Z- STA 533 


FCPé- JSR SFD6?7 


evoc- LV #$08 
#00E- BNE $FDI3 
FDI0- JMP $FDIS 


FDIT JSR $E5B4 


FDI6- HE£EK EA, EA 


EDIB- LDY #$03 
#46 eh 


++ 
+r+ #34 
FU24- LOY 4501 
P26- 8NE $FD10 
Æ028- L£R $07E8 


FC92- BIT $0678 


CSS HMS SPU95 


FCO JAP SCHC2 
PCOC- ERA SCD 


FCeE- &RA SFC90 
FCAO- LDV 0500 S1F étoit une 

ædreass en poge 
FCA2- ERA $FC90 zéro inutilisé sur Il+ 


PCAI- JAP ($CD2A. X) 
ECA7- HEX FF 


FCCI- RS foactios cassette 
supr {taie 

fTTA- LDY #$00 

CC- STE 830 

FCOE- LDX #5BF 

fDO- STA $10 

FCD2- LOA 4$A0 

FCD4- STA ($3C),Y 


FCDS- DEY 
ITTA- CPK 8501 


FCDC- EN& $FCDO 
FCOB- STA sCvo! 
FCEI- LDA $C055 
FCEd- SC 

FC&5- LDX #50 
FCE?- IDA $C827,X 


FCEA- CC SFCP6 


ECEC- CNP 50477, X 
Frcsr- CC 

CCP0- BnwE& SFCF6 
Cr2- CP 9502 


FCF4- OCC SsCrC 
FCFE STA $0477,X initialise pour 
80 colonnes 


mm03- Apple //c 


FDoc- ... 
F00E- ,.. ... 
FDI0- N&X EA, £A, EA 


FD13- N&X £A, LA, £A 


FDIH- STA ($28),Y 
FDI1D- JSR $oc4c 
FD30- JSR 3070 
FD23- BPL SFU20 
F025- PNA 

FD26- LDA 45e 
FD38- BIT S06F8 

















FD2B- BIT $C010 FD2C- PLP FD2B- JMP SFDOC 
FD2D- RTS 

FD£E- RTS +: P028- No? 
FD2F- JSR SFDOC FD2P- JSR SFD2I btt tétét 
FD32- JSR SFBAS +. se... ses sonne 
FD35- JSR SFOOC  ... ..... FD35- JSR $ED2Z8 
FD38- CMP #$98  ... .... 
FD3A= BEQ SFD2F nu, sus nes ve... 
FD3C- RTS vs 
FOSD- LDA 532  ... ... FDiD- LDY #$0F 
FDIF- PHA ess FD3F- VJSR $FB84 
P040- OA 45F … FD4i- U5R STD 
F002- STA $32 PO42- WEX SA,EA FDAZ- LDY 524 
FD44- EDA 5200.X  ... ....... FD44- STA $0200,X 
PD#47— JSR SFDSD +. ..... 552 Lise 
FDA- PLA .… 
EDt4- STASIZ +... FD4B- REX EA, EA 
FD40- LDA 50200,% vu. musuuss ue nusssse 
FD64— JSR SFDED nus menus nee uses 
FD?5- JSR SFD35 oo omis see esove 
FD?A- BNE SFD7E BNE SFD84 
FU7C= LADA ($28),Y vos puosvse  vve ooecvee 
FD7E- CNP #$50 BIT $COIF 
FD80- aCC $FD94 BMI SFD3D 
FD82- AND #$0F war 
FD89- BNE SFD3D  ... ..... FD89- BNE $FD47 
ZDFO- CMP #SAO  ... .... FDE0- PHA 
FDE2- BCC SFDF6  ... ..... FDEI- CMP #$A0 
FDF4- AND $32 ... ... FDES- JP SFCS5 
FDF6- STY $35 FDF6- PHA 
FDF8- PHA FOF7- STY 535 
FDF9- JSR SFB78  ... ..... FOF9- TAY 
FDFC- PLA FDFA- PLA 
FDFD- LDY 535  ... ... FDFB- JMP $FC46 
FDFF- RTS FDFE- HEX EA, EA 
PE9P- BEQ SPEAT FE9F- BEQ SFEAS 
PEAI= ORA #50... us 
FEAS- LDY 8900 nés 5éss die psée 
FEAS- BKQ SF£R9 FEA5- STY 500,X 
P£AT- LOA #$P9 FEA7- STA $02,X 
FEA9- STY SOD,X ve. soso FFA9- 1DY #508 
FEAB- SIA SOLX ee. se. FEAB- JMP $FBB4 
FEAD- RTS 
FEAE- HEX EA,EA FEAE- HEX EA,D! FERE- HEX EA, 00 
FEC2- RT se 
F£CS- NOP ss 
FEC4- RTS .… sv. 
FECS- HEX EA,EÀ,6A PECS- Bryan FECS- STA $CODE 
FEC8- HEX SA,EA FEC8- RTS 

FEC9- RTS 


FECD- LDA $540 
FECP- JSR 5FCCS 
F5D2- LOY #$27 





FECF- STA $CO87 
ÆD2- JSR SC5SAA 





F&04- LOX #$00 FEDS- REQ SFFO3 
FED6- EOR ($3C, x) 
FED8- PHA F£E07- LOY #51 
FED39- LDA ($3C,x} -.. -..... F£D9- LDA $543 
FEBB- JSR SFE£ED  ... ..... FEDB- BEGQ SF5B1 
FEOD- CNP (5X),Y 
FEDE- JSR SFCBA  ... ..... FEDF- BNE $FEES 
FES1- LOY 4510 FESi- DEY 


FD28- 
FD2D- 
FD2£- 
FD30- 


BNE $FD4A 
Plà 

CHP #538 
ANE $FD38 


FD32- JNF SCT 


2835 
FD38- 
FD3B- 


FD30- 
FD3F- 


FD44- 
FD45- 
ÆD47- 
FD4i- 
FD48- 
FD#C- 
FD4D- 


FD64- 


FD75- 


……… 
FD7C= 
FD7E- 


F081- 


FD89- 


JHe 5CsD 
BIT $0678 
EMI SFD44 


CP #595 
ENE $FD#4 


PFRA 

LOÀ 4564 
TS8 $O4FB 
PLA 

RTS 

NOP 

JSR SCIA6 


JSR $C3A6 


JSR $SCCED 


JSR $CCID 
EX ESA, EA 


KEX EA,EA, 


BNE SFD4D 


BIT 50678 


UMP SFBB4 


BNE SFEA7 
CPY #$1B 
BREO 5FEDE 


FSAS- BRA $FsC2 


FBAD- 
FEAF- 


FEC2- 
FECI- 


FEC6- 
FECS- 


FÉœD- 
FECE= 
FE01- 
FED4- 
FED7- 
Æ8D8- 


ORA #$C0 

LDY #500 

STY $00,x 
STA 501,KX 
RTS 


DEÆA 
STA $07EB 


LDA #$F7 
BRA SFECE 


ARTS 
STA $067B 
STA SCO0s 
TSS 50478 
PHX 
PHY 


FEU3- JSR SCD 


FEOC- 


PLY 


FECD- PLX 


FEDE- 
FEEO- 


LDA #5F0 
BRA SFEAS 


fre 
$FSEr 


FEFO- JSR 
FEF3- BNE 
FEPS- RTS 
FEFD- JSR S$SECFA 
FFO0- LDA #$16 
FFD2- JSR SFCC9 
FFO05- STA $2£ 
FFD7- JSR $FCFA 
FP8A- LDY #524 
FFeC- JSR SECFD 
FFDEF- &CS SFFDA 
FFil- JSR SFCFD 
Pr14- LDY 4538 
FFi6- JSR $FCEC 
FF19- STA ($3C.X) 


FFiB- £EOR $2£ 
FFID- STA 
FFiF- JSR 
#F22- LDY 
FF24- &CC SFFi6 
FF26- JSR SPCEC 
£F29- CNP 


FF2B- BEQ SFF3A 


#fF78- LDY 


FF7D- CMP $FFCC,Y 


FFAB- LDA $0200,Y 
FF80- INY 

FFB1- SOR #$B0 
FFB3- CMP #$0A 
F£8S- SOC SFFSA 
FFET- ADC #$86 
FEB9- CNP SFA 
FF&B- BCS SFF8A 
FF8D- RTS 














FREZ= LDA 542 FEEZ- PHY 
E&S4- CMP (S3C),Y FEES JSR SCC3D 
FEF6- ENS SFEEB FES6- DEY 
F356- JSR SFD92 FES7- BRA SFEEE 
T&SB- JSR SFCBA FEES LDA #$01 
Œ&SE- 8CC SFED7 FEEB- DEA 
FERC- PHY 
FE8D- TA 
FEFO- RTS FEEE- JSR $CCAD 
. FBFI- LDY 5$00 FEF1- PLY 
: FES} JSR SFBB4 FEFZ- LDA $057B 
FEPS- .., 
+ FEFD- STA 5C007 F£FD- RTS 
FFO00- JSR SCSDi FBPE- 4EX 12,14. 1A 
. FFO3 STA $C006 FFOI- WEX 1C, 32,34 
FFO6- BRQ SPF3A FF04- HEX 24, 3C.52 
. FPO8- BNE $FF2D FPO7- 4EX SA, 64,72 
FFOA- Âpple /Je FFOA- KEX 74, 7A 7€ 
FFO0- H&X 89,92 
FFOF- &EX 9C, SE 
FFil- 4EX 82, 02,72 
FFLF- USR SFCED FPi4- REX EC, 38 
PP16- CMP #$A0 FF16- 4EX FB, 37,FB 
FF18- 8AQ SFF13 
FFILA- RTS EFiS HEX 39,2i 
PP1B- ACS SFF8A FF1B- ÆPX 36,2i 
FFIP- CNP 4$40 EFID- REX JA FE 
‘ FFIiF- BNE SFF49 FFLF- &EX FA,38,FA 
FF21- LDA $0200,Y FF22- HPX F9,22 
, FPèt- LOY #507 FF24- &EX 21,30 
: FF26- CHP #58D FF26- WEX FA.PA,3D 
FF26- BEQ SFFA7 FF29 REX 35,3F 
FF2A- INY 
F FF2B- BEQ SFF69 FF2B- BEX FC, 00 
EF78= LOY 8$i13 
nos:  svs;anvuses FF7D- CMP SFFCD,Ÿ 
FFAD- se ssstves 
FEB1- JSR $C399 
FFH4- &OR 4580 
FPB6- CNP #50A 
FPB8- BCC SFF8A 
PPBA- BRA SEFF5 


FFBC- HEX FF,41 ?7 





FFCI1- LOA SFFES,Y ... coucou es couceoe FFC1- 2DA $FFEO,Y 
FFC- 4EX 4C, 42, 4E ss. CCPRELTELTES FECC- 4dEX EA,BC,B2 
FFCF- HEX B2,EF,.C4 ... ..,..,.. FSCF- SEX SA,EF,C4 FECP- EX AF,EF,C4 
FFD2- HEX 52,A$,48 PE FFD2- HEX £C,AS,BB FFD2- 4EX A9, 48, A6 
FFDS- HFX A$,A#4,06 ... ..,.. vo. eee vnpevpee FEFUS- HEX A4,06,95 
FFD8- H5X 95,07,02 ... ..,..,.. ss. EFD8- KEX 07,02,05 
FEOB- AEX 05,F0,00 ... ..,..,.. FFOB- HEX 00, 93, A7 
PFD8- HEX BB,935,A7 ... ..,..,.. FFDE- HEX C6, 939, &2 
FFEl- HEX C6,99,B2 ... ..,..,.« CCRRELTELTEE FFEi1- EEX C9,8F,12S 
FFE4- BEX C9,BE,C1 ... ..,..,.. FFE4- HEX C9,A£,F0 FFE4- HEX 9C,96,A7 
FF87- HEX 35, 8C,C$ FFET- HEX 35,8<,D8 FFE7- HEX 17,17,28 
FFSA HEX J6,AP, 17 ve, vepens ve CORRE TETE FFEA- HEX 1F,93,7E 
FEFED- HEX 17,28,1F FPED- HEX SD, 85, 17 
FFFO- HEX 33,77, 5D .. FFEQ- HEX 17,FP3,03 
FFF3- HExX CC,BS SFF3- ADC 588 
EFFS5- H2x FC, 17 FFPS- CNP #SPA 
FFF7- KEX 17,F5 SFF7- CS SFF&A 
FFF AEX 03 PEP9- RTS 


FFFE- HEX 40,FA 





FFFS- HBX 03,C8 





Vous venez de troquer votre 
Apple Il+ ou Ile contre le portable 
Ilc. Les caractères souris 
perturbent un peu l'affichage des 
programmes que vous utilisiez 
régulièrement sur l'ancien Apple. 


Outre ce problème, le célèbre Pro- 
gram Line Editor (PLE), entre 
autres, ne fonctionne plus : lors 
de l'édition des lignes par Ctrl-E, 
un message d'erreur s'ajoute 
après la dernière instruction. 


Le patch suivant, incorporé au 
programme Basic qui lance PLE, 
résoud le problème : 


sur l'Apple Ilc 


PLE 


Yvan Koenig 


YK = PEEK (175) + 256 


* PEEK (1%6)- 


1196 


IF PEEK (64448) = 


THEN POKE YK, 


1570 


POKE YK + 4, 254 


IF PEEK (64448) = 
THEN POKE ŸYK, 


164 


POKE YK + 4, 254 


(e) 


224 


La ligne S détermine l'adresse du 
patch. La ligne 6 s'exécute si on 
se trouve effectivement sur un [lc. 
La ligne 7 est d'un usage plus 
personnel : j'ai modifié la ROM 
du lait de transformation Ile en Ilc 
afin de bénéficier du mini- 
assembleur, d'un désassembleur 
qui connaît les nouveaux codes du 
65C02 et de la basse résolution 80 
colonnes ; tout cela au prix de la 
perte de l'auto-test. Les lecteurs 
peuvent me contacter à ce sujet à 
l'adresse suivante : 


Yvan Koenig - 4, rue du Stade 
06220 Vallauris 


D 


58 


| 
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ette routine, en langa- 

ge machine, est desti- 

née à être intégrée 

dans un programme 
principal (en Basic) afin de faire 
défiler un texte sur l'écran, dans 
des conditions peu courantes. 
Une chaîne alphanumérique (de 
255 caractères au maximum) étant 
définie par le programme Basic, 
cette routine transforme les 
caractères de la chaîne en lettres 
géantes (1 caractère = 16 lignes 
de 12 colonnes) dans la page 
graphique haute résolution 1. 
Cette visualisation s'accompagne 
d'un défilement de tous les 
caractères, depuis le premier 
caractère apparaissant à droite de 
l'écran jusqu'au dernier dispa- 
raissant à gauche. 


Utilisation dans un 
programme Basic 


Précautions 


Pour éviter tout conflit de mé- 
moire entre le Basic, la page 
graphique haute résolution 1 et la 
routine en langage machine, il est 
souhaitable de charger le Basic 
(par exemple) au-dessus de la 
page graphique : c'est-à-dire à 
partir de 16384 ($4000). Sous 
DOS 3.3, cela laisse environ 21 
Ko de libre pour le Basic et ses 
variables. On peut obtenir ce 
résultat de deux façons : 


* il faut entrer au clavier 
POKE 103,1 
POKE 104,64 
POKE 16384,0 puis RUNer le 
programme Basic ; 


ou alors, il faut écrire un petit 
programme Basic qui lancera le 
programme Basic principal. On 
peut prendre comme exemple 
le programme de démonstra- 
tion DEFILE.DEMOLANCE 
qui lance le programme princi- 
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dry. 


pal DEFILE.DEMOPROG. Il 
suffit de le reproduire en 
mettant le nom de son propre 
DrSetae Basic à la ligne 
100. 


Mode d'emploi 


Le programme Basic devra, dès 
le début, contenir la ligne 
suivante (les numéros de lignes 
sont donnés à titre indicatif) : 


100 PRINT CHRS(4); "BLOAD 
PARAMETRES+DEFILE.OBJ0" 


L'objet de cette ligne est de 
charger en mémoire la routine en 
langage machine. 


Le défilement du texte se faisant 
en page graphique haute résolu- 
tion |, il peut être intéressant 
d'afficher un dessin (fixe) en plus 
du texte qui défile. Il faut alors 
charger en mémoire une page 
graphique déjà existante sur la 
disquette (pour cela ajoutez la 
ligne suivante) : 

200 PRINT CHRS(4); "BLOAD 
nom page graphique, A8192" 

Ïl est aussi possible de réaliser le 
dessin à l'aide des instructions 
graphiques du Basic (HPLOT, 
etc... ): 


[1 faut ensuite régler la tabulation 
verticale de la phrase qui va 
défiler : la page haute résolution 
contient 192 lignes (numérotées 
de O à 191), les caractères 
utilisent 16 lignes. Il faut ajouter : 


210 POKE 251,V 
avec V compris entre O (haut de 
l'écran) et 176 (bas de l'écran). 


La chaîne alphanumérique qui va 
défiler doit être mise dans la 
variable IPS : 


220 IP$=".;.phsase… 
ou 
220 INPUT IPS 


Patrick Ouettier 


Tous les caractères de code 
ASCII 32 à 127 sont acceptés : 
cela correspond au jeu de 9% 
caractères de l'Apple //e (ou //c) 
en mode AZERTY. 

Si la page graphique n'est pas 
encore affichée à l'écran, il faut la 
commuter : plusieurs méthodes 
sont possibles, en voici une qui 
n'efface pas le contenu de la page 
et l'affiche dans son intégralité 
(192 lignes). 


230 POKE 49239,0:POKE 492 
36,0:POKE 49234,0:POKE 492 
32,0 


Le lancement de la routine se fait 
par : 


240 CALL 4736 


Cette instruction fait défiler la 
chaîne IP$ une seule fois, mais le 
programme Basic peut la renou- 
veler à plusieurs reprises (la tabu- 
lation et la chaîne IP$ ne sont pas 
modifiées). 


En résumé 


Voici, comme exemple, un (mini) 
programme qui utilise la routine : 


100 PRINT CHRS(4),"BLOAD 
PARAMETRES+DEFILE. 
OBJ0" 

200 PRINT CHRS(4), "BLOAD 
DEFILE.DEMO-PIC,A81 
CL 

210 POKE 251,160 

220 INPUT IPS 

230 POKE 49239,0:POKE 
49236,0:POKE 49234,0: 
POKE 49232,0 

240 CALL 4736 


Modifications possibles 


Il est possible de modifier la 
vitesse de défilement en ajoutant : 
235 POKE 4960, Y: POKE 4962, 





X avec X et Ÿ compris entre 1 et 
255. Actuellement, Y=15 et X= 
255. On obtient aussi de bons 
résultats avec Y=4 et X=1. Cela 
revient à modifier les lignes 187 
et 188 du fichier source DEFILE. 


N.D.L.R. : la vitesse diminue 
avec X (poids faible) et Y (poids 
fort); (noter que 0=256). 


Il est possible de modifier le 
fichier PARAMETRES+DEFILE 
.-OBJO pour obtenir l'affichage 
des caractères en mode inverse. 
Après chargement de ce fichier, il 
faut faire : 


110 FOR. T=2432 TO 4735; 
POKEIT,255 - PEEK(T)NEXT 


Remarque : les effets de deux 
exécutions successives de cette 
ligne s'annulent. 


On peut aussi choisir de loger la 
routine à une autre adresse. Pour 
cela, il faut assembler le fichier 
DEFILE après avoir mis à la ligne 
18 la nouvelle valeur choisie pour 
DB, puis créer un nouveau fichier 


sur une disquette : 


BLOAD DEFILE.OBJO 
(nouveau) 

BLOAD PARAMETRES,AX 
avec X=DB-2688 

BSAVE PARAMETRES+ 
DEFILE.OBJO, AX, L2922 


Détails des 


programmes 


DEFILE est le fichier source en 
assembleur ToolK:it. 


DEFILE.OBJO est le fichier objet 
de DEFILE. 

adresse de début : 4736 ($1280) 
adresse de fin : 4975 ($136F) 
longueur : 240 octets 
PARAMETRES est le bloc de 
paramètres utilisé par DÉFILE. 
OBJO. 

adresse de début : 2048 ($0800) 
adresse de fin : 4735 ($127F) 
longueur : 2688 octets 
PARAMETRES+DEFILE.OBJO 
réunit les 2 fichiers précédents. 


adresse de début : 2048 (50800) 
adresse de fin : 4975 ($136F) 
longueur : 2928 octets 


Remarque : c'est le seul fichier 
qui soit nécessaire pour utiliser la 
routine à partir d'un programme 
Basic (dans les conditions 
standard). 
DEFILE.DEMO.PROG est un 
programme de démonstration en 
Basic (attention, il ne faut pas le 
RUNer directement ?). 


DEFILE.DEMOLANCE est le 
petit programme Basic qu'il faut 
RUNer pour obtenir une 
démonstration. 

SHIFT+ONERR : routines utili- 
sées par le programme de dé- 
monstration. 
DEFILE.DEMO.PIC : page gra- 
phique haute résolution utilisée 
par le programme de démons- 
tration (ne figure pas sur la 


disquette). . 


Programme 
DEFILE.DEMO.LANCE 


10 REM #*#*X##XA#AAAAAAAAAHARAARAHARHAREEZ ZX 


20 REM * 

30 REM * Animation graphique - Démo # 
40 REM * + 
50 REM * Lancement * 
60 REM * 4 


70 REM #*A#AXARAAAAAHAHAXAAAARARAAEAHAHXEXEX XX 


80 TEXT : HOME 

90 POKE 103,1: POKE 104,64: POKE 16384,0 

100 PRINT CHR$ (4});"RUN DEFILE.DEMO.PRO 
G" 


Programme 
DEFILE.DEMO.PROG 


10 REM ***#XA#AARAHAAHARAHARAARAHARAAXX XX 


20 REM * * 
30 REM * Animation graphique - Démo * 
40 REM * * 
50 REM *Patrick QUETTIER - 76190 Yvetot* 
60 REM * * 


70 REM HARAARÉEREHAHÉRÉRÉARÉRERARÉRARAARHÉA AE A 
80 GOSUB 230: REM Initialisation 
90 GOSUB 160: ON CH3 GOSUB 300,350, 400,1 





00: GOTO 90: REM Menu 

100 POKE 216,0: PRINT : POP 
R#6": REM Fin - CH3=4 

140 REM #AAAAAAAHARAHEAAHARAHALAHEHEH EEE 

120 REM Attente clavier 

130 VTAB 24: PRINT " Appuyer sur une tou 
che pour continuer";: VTAB 2: CALL B 
E$: POKE KK3%,0: WAIT KE%,128: HOME : 
RETURN 

140 REM AARARAAAAAAAARARARRRRRRAAAAH HE EH 

150 REM Menu (CH3=1 à 4) 

160 HOME : HTAB 9: INVERSE : PRINT LEFT 
S$ (T$,23): HTAB 9: PRINT "#" SPC( 21 
}"*®: HTAB 9: PRINT ‘’* ANIMATION GRA 
PHIQUE *" 

170 HTAB 9: PRINT "#" SPC( 21)"*": 
9: PRINT LEFTS (T$,23}): NORMAL 

180®VTAB 10: PRINT T$: PRINT " 1 - Démon 


: PRINT DS$"P 


ATAB 


stration": PRINT : PRINT " 2 - Démon 
stration (bis)": PRINT : PRINT " 3 - 
Mode d'emploi" 

190 PRINT : PRINT " 4 - Fin": PRINT : PR 


INT T$: VTAB 24: PRINT SPC( 8)"Appu 
yer sur 1, 2, 3 ou 4";: CALL BE%: PO 
KE KK3#,0 
200 WAIT KE%,128: POKE KK53,0:CH% = PEEK 
(KE$) - 48: ON (CH3 < 1 OR CH$ > 4} 
GOTO 200: HOME : RETURN 


210 REM RARAHALAHARAHRRAHARLAHARRARLH HE ZX 
220 REM Initialisation 





60 


| 
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230 
240 


250 


260 


270 
280 
290 
300 


310 


320 


330 
340 
350 


360 


370 


380 
390 
400 


410 


420 


430 


440 


450 








ONERR GOTO 610 


D$ = CHRS$S (4):BE% = - 1052:KK$% = 

— 16368:KE8 = - 16384:TS = mA4x4+xxx 
ARARARARARARAÉEAEAEAÉAÉAEARAÉRAÉ EAN. G 
S$ = CHRS (34) 


PRINT DS$S"BLOAD PARAMETRES+DEFILE . OBJ 
0": PRINT DS'"BLOAD DEFILE.DEMO.PIC, À 
8192": PRINT DS"BLOAD SHIFT+ONERR" 
IF PEEK (64435) = 234 THEN CALL 76 
8: REM On peut supprimer cette lig 
ne pour un Apple II+ avec ROM LC 
RETURN 

REM ##AAAXARAAXERAXARAAARRAARRAAREE XX 
REM Démonstration - CH$=1 

IPS — FOR T = 32 TO 127:IP$ = IP 
$ + CHR$ (T): NEXT 

IP$ = "* * Animation Graphique par 
Patrick QUETTIER - Une ligne de 255 
caractères maxi peut défiler comme à 
ctuellement - Voici tous les caractè 
res disponibles: " + IPS + " * *" 
POKE 49239,0: POKE 49236,0: POKE 492 
34,0: POKE 49232,0: POKE 251,160: CA 
LL 4736: CALL 4736: POKE 49233,0: RE 
TURN 

REM #AAAAAXAXAAAAAARAAAAAARAAAAAAREA ZX 
REM Démonstration (bis) - CH3-2 

POKE 49239,0: POKE 49236,0: POKE 492 
35,0: POKE 49232,0: VTAB 21: PRINT “" 
Introduisez une phrase quelconque:" 
VTAB 22; INPUT "““";IPS$: IF IPS = "" G 
OTO 360 

POKE 251,130: CALL 4736: CALL 4736: 
POKE 49233,0: RETURN 

REM #AAAAAAAXAARARARALAAAAAAAAAAAX XX 
REM Mode d'emploi - CH$=3 

PRINT SPC( 14)"Généralités": VTAB 4 
: PRINT "La routine permettant de fa 
ire de l'ani-mation graphique, est d 
estinée à etre incorporée à votre 
programme basic. "; 

PRINT "Pouréviter tout conflit de mé 
moire entre le basic, la page graphi 
que et la routine en langage machin 
e, votre programme" 

PRINT "basic devra etre chargé (par 
exemple) audessus de la page graphiq 
ue haute réso- lution 1:" 


PRINT : PRINT "Au clavier, il faut f 
aire:": PRINT "“ POKE 103,1:POKE 104 
, 64:POKE 16364,0 RUN Programme b 
asic" 

PRINT : PRINT "Ou il faut écrire un 


petit programme basic qui lancera 
le programme basic principal: "; 

PRINT " 10 POKE 103,1:POKE 104,64:P 
OKE 16384,0 20 PRINT CHRS$S(4);"GS"RU 

N Programme basic"G$ 

GOSUB 130: PRINT " Initialisation pa 
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460 


470 


480 


490 


500 


510 


520 


530 


540 


550 


560 


570 


580 


"590 


600 
610 


620 


r le programme basic”: ÿIz= J: mt 
"Votre programme basic 
ter, dès le début, une lisse:" 
PRINT : PRINT : PRINT "100 ER CC 
S(4) ;"GS"BLOAD PARAMETRES+DEZ LE 
. OBJ0"GS: PRINT 
PRINT : PRINT "Le fichier PARAMETRES 
+DEFILE.OBJ0O con- tient l'intégrali 
té de la routine gra- phique (=lang 
age machine)": GOSUB 130 
PRINT " Utilisation par le program 
me basic": VTAB 5: PRINT "Commencer 
par charger une page graphiquehaute 
résolution (déjà existante) à pa 
rtir d'une disquette:" 
PRINT : PRINT "200 PRINT CHRS(4);"GS$ 
"BLOAD Page graphique, A8192"GS 
PRINT : PRINT "On peut aussi réalise 
r un dessin avec les instructions 
graphiques du basic (HPLOT etc... 


Je 


Sr 


PRINT : PRINT : PRINT "Régler la tab 
ulation verticale de la ligne à f 
aire défiler:": PRINT : PRINT "210 P 


OKE 251,0 (haut écran) à 176 (bas 
écran)": GOSUB 130 

VTAB 3: PRINT "Mettre dans la variab 

le alphanumérique IPS la phrase que 

l'on veut faire défiler:": PR 


INT : PRINT " 220 IP$="G$"Bonjour" 
G$: PRINT "ou 220 INPUT IPS" 
PRINT : PRINT : PRINT "Commuter la p 


age graphique à l'écran:": PRINT : P 


RINT " 230 POKE 49239,0:POKE 49236 
,0:POKE 49 234,0:POKE 49232, 0" 
PRINT : PRINT : PRINT "Puis lancer 1 
e défilement :": PRINT : PRINT " 24 
0 CALL 4736": GOSUB 130 

PRINT SPC( 15)"En résumé": VTAB 4: 
PRINT "Voici, comme exemple, un (min 


il) program-me qui utilise la routine 

PRINT : PRINT : PRINT 
S(4) ;"GS"BLOAD PARAMETRES+DEFI 
.OBJO"GS$: PRINT 

PRINT "200 PRINT CHRS(4);"GS"BLOAD D 

EFILE.DEMO.PIC ,A8192"GS: PRINT : 
PRINT "210 POKE 251,160" 

PRINT : PRINT “220 INPUT IPS": PRINT 
: PRINT "230 POKE 49239,0:POKE 4923 
6,0:POKE 49234 ,0:POKE 49232,0": 

PRINT : PRINT "240 CALL 4736": GOTO 

130 

REM #AAAXAAAAAAARAAARRAARAAAEAAAEE XX 

REM Traitement de ONERR GOTO 

CALL 843:E = PEEK (222): IF E = 255 
THEN RESUME 

HOME : VTAB 10: PRINT 


"100 PRINT CHR 
LE 


"Erreur de cod 


e "E" à la ligne " PEEK (218) + PEE 
K (219) * 256: END 
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60 
(Assembleur DOS TOOL-KIT) ‘ sn de 

62 STA POINTE 

63 * 

64 LBL14 LDY POINTE *Rentre les LONG car 
 * 65 LDA (ADRIP),Y *de IPS de POINTE=0 
2 D et De ne fe fe ne ne fe be se fe fe ot ne fe te tt 66 AND #127 #à LONG-1 
PR cd 67 JSR RENTRE 
4 * ANIMATION GRAPHIQUE * 68 INC POINTE 
9 * & 69 LDA POINTE 
6 * Patrick QUETTIER x 70 CMP LONG 
7 76190 Yvetot % 71 BNE LBLI14 
8 * . 72 * 

9 fe fe ee of fe fe te ne of fe te oo fe te ee à 73 LDA #24 *POINTE=24 espaces 
10 * 74 STA POINTE *pour finir la ligne 
11 “Début: 4736 $12.80 75 LBL25 LDA #32 
12 *Fin: 4975 523.67 76 JSR RENTRE 
13 *Longueur: 240 S00.F0 77 DEC POINTE 
14 * 78 BNE LBLI5 
15 D ee fe ne fe fe ot of fe te te ne fe fe te ot ot of of 2e où fe te ot be er ot of of of 2e of fe ot ot où 79 RTS *FIN retour basic 
16 *Variables utilisées par le programme 80 * 

17 * 81 À A A ee ee ef DE fe ne ee où fe fe A ee fe of ee 2 me fe of ef ete of te fe où où 
18 DB EQU 4736 *Assemblé à cette adresse 82 *Rentre le car de code ASCII À, décale de 12 
19 HAUT EQU 251 *i-Tab. vert. haut texte 83 “colonnes vers la gauche 

20 HAUTI6 EQU 253 *1-HAUTI6=HAUT+16 84 * 

21 HGR EQU 254 *2-Adrler octet 1igne HGR 85 RENTRE CMP #32 *N'affiche pas un car 
22 OCTETI1 EQU 252 *1-Partie haute col carac 86 BCC LBL16 *de controle (<32) 

23 OCTET2 EQU 250 *]j-Partie basse col carac 87 SEC *ASCII=A-32 

24 CARAC EQU 249 *1-Compteur 12 col carac 88 SBC #32 

25 ASCII EQU 235 *2-Adr définition carac 89 STA ASCII 

26 ASCII12 EQOU 237 #2-ASCIF12=-ASCIIT12 g0 * 

27 LOMEM EQU 105 *2-Début zone données num 91 LDA #0 *ASCIÏ]-24*ASCII 

28 LONG EQU 239 *i-Longu de la chaine IPS 92 LDX #8 

29 POINTE EQU 215 *1-Compteur carac IPS 93 LSR ASCII 
30 ADRIP  EQ@U 206 *2-Adressage ind pour IPS$ 94 LBLSE BCC  LBL9 
31 ADRESSE EQOU DB-2688 *Bloc de paramètres 95 CLC 
32 * 96 ADC #24 
33 RARRRARRARÉRRRÉRRRRRRRRRRRRRRÉRRRRRRRÉRRRRRÉRÉÉRÉR 97 LBL9 ROR A 
34 ORG DB *Adresse d'assemblage 98 ROR ASCII 
35 À 99 DEX 
36 ARRRARRARARRRRRRR RAR RNA RNA RAAARAAHAA TN 100 BNE LBL8 
37 *Arrivée du Basic après réglage HAUT et IPS 101 STA ASCII+] 

38 * 102 * 

39 LDA HAUT *HAUTI6=-HAUT+16 103 LDA ASCII *ASC=ASC+ADRESSE+384 
40 CMP #177 104 CLC *adr ler octet de la 
41 BCC  TOTO 105 ADC #>ABRESSE+384 
42 UMP $E199 *Illegal Qquantity er 106 STA ASCII *'matrice" du car 
43 TOTO ADC #16 107 LDA ASCII+1 
44 STA HAUTI6 108 ADC  #<ADRESSE+384 
45 * 109 STA ASCII+1 
46 JSR CHERCHE 110 # 

47 LDY #2 *LONG=longueur IP$ 141 STA ASCIII2+1 *ASCIII12=ASCII+12 
48 LDA (ADRIP),Y 112 LDA ASCII 
49 STA LONG 113 CLC | 
50 BNE LBL13 114 ADC #12 
51 RTS *FIN retour basic 115 STA ASCII12 
52% 116 BCC  LBLA | 
53 LBL13 INY 147 INC ASCII12+1 
54 LDA  (ADRIP}),Y 118 * 

55 TAX 119 LBL4 LDA #0 *CARAC=0 (comp des 12 
56 INY 120 STA CARAC *colonnes du car) 

57 LDA  (ADRIP),Y*Y 121 LBL7 LDY CARAC *octet haut colonne 
58 STA ADRIP+1 122 LDA fASCII),Y 
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123 STA OCTETI 161 *Fait défiler 16 li (HAUT à HAUTI16-1}, d'une 
124 LDA (ASCIII12},Y 162 *colonne vers la gauche 

125 STA OCTET2 *et l'octet bas 163 * 

126 JSR DROIGAU  *Défill col à gauche 164 DROIGAU LDX HAUT *K=tab verticale=HAUT 
127 INC CARAC *CARAC=CARAC+1 165 CLV *Drapeau V=0 

128 LDA CARAC *continue pour 12 col 166 * 

129 CMP 612 “du caractère 167 LBLO LDA ADRESSE, X *HGR=adr oct 1 en 0,Xx 
130 BNE LBL7 168 STA HGR+I 

131 LBL16 RTS *Fin 163 LDA  ADRESSE+192,X 

132 * 170 STA 4GR 

133 RRRRRARRRRRRRRRRRRRRRARRRRRRRRRRRRRRRRRRRRARÉÉ 471 * 

134 *Cherche la variable IP$ 172 ROR OCTET2 *car à entrer en 

135 * 173 ROR OCTETI 

136 CHERCHE LDA LOMEM *On commence à LOMEM 174 LDY #39 #Y=tab horiz=39 à O0 
137 STA ADRIP 175 * 

138 LDA  LOMEM#+1 176 LBL1 LDA (AGR),Y *A=contenu oct en Y,X 
139 STA ADRIP+1 177 BCC LBL2 *Met retenue en MSB À 
140 * 178 ORA #128 *Càs 1 

141 LBLIO LDY #0 179 BVC LBL3 Toujours pris 

142 LDA #73 *ler octet;"I" ? 180 LBL2 AND #127 *Cas 0 

143 CMP  (ADRIP),Y 181 LBL3 LSR À *Décalage droite 

144 BNE LBLil 182 STA (HGR),Y *A dans octet ({Y.X}) 
145 INY 183 DEY *Y=Y-1 

146 LDA #208 *Oui-2ème octet:"p" 7 184 BPL LBLI *meme ligne Y=33 à 0 
147 CMP  (ADRIP),Y 185 INX XX=X+1 

148 BEC LBL12 186 CPX HAUTI6 *pour lignes X=HAUT 
143 * 187 BNE  LBLO *à HAUT16-1 

150 £LBL11 CLC *Non, ajoute 7 188 * 

151 LDA ADRIP 189 LDY #15 *Temporisation 

152 ADC #7 190 LBL6 LDX #$FF 

153 STA ADRIP 191 LBLS DEX 

154 BCC LBLI0O 132 BNE LBLS 

155 INC  ADRIP+1 493 DEY 

156 JMP  LBL10 194 BNE LBL6 

157 : 195 RTS *Fin 

158 LBL12 RTS *Résultat dans ADRIE 196 * 

159 + 197 RAÉARRRRRRRRARRRRRRRRRAR ARR RRR RAA ER RÉ 


160 YRRAARXAARRARRARRARRRRRRRAARRÉARAARÉARÉHRÉÉ REX À 





R » a itulation 08E0- 00 00 00 00 00 00 00 00 09E8- CC 8C 00 00 00 00 OC OC CAF0- OF 03 00 00 00 00 30 3C 
ec P 08E8- 80 80 80 80 80 80 80 80 09FO0- 0C 3F 3F OC 0F 07 00 00 OAF8- 0F 03 00 00 00 00 00 00 
PARAMETRES C8F0- 00 09 00 GG 00 00 00 00 09F8- 00 CE 1F 1B 1F CE F0 3C 0B00- 00 FC FE 07 03 C3 F3 3F 

08F8- 80 80 80 80 80 89 80 80 0A00- 0F 03 00 00 00 06 30 3C 08B08- OF FE FC 00 00 OF 1F 3C 

0900- 28 28 28 28 28 28 28 28 0A08- 0F 03 iC 3E 36 3E 1C 00 0B10- 3F 33 30 30 38 1F OF 00 
0800- 20 24 28 2c 30 34 38 3c 0908- A8 A8 A8 A8 AS A8 A8 A8 OAÏO- 00 00 SE FF E3 F3 3F 1E  OBI8- 00 00 00 06 06 FF FF 00 
0608- 20 24 28 2C 30 3% 38 3c 0910- 28 28 28 28 28 28 28 28 0A18- 00 00 00 00 00 1F 3F 31 OB20- 00 00 00 00 00 00 00 30 
0820- 21 25 29 2D 31 35 39 50 0916- A8 A8 A8 A8 A8 A8 A8 A8 OA20- 30 31 1B 0E 1C 3E 33 00  O0B28- 30 3F 3F 30 30 00 00 00 
0818- 21 25 29 2D 31 35 39 30 0920- 28 26 28 28 28 28 28 28 0A28- 00 00 00 00 26 3F IF 0E OB30- 00 IC 1E 07 03 03 83 C3 
0820- 22 26 2A 2E 32 36 3A 3e 0928- A8 A8 A8 A8 A8 A8 A8 A8 0A30- 00 00 00 00 00 00 00 00 OB38- E7 7E 3C 00 00 30 38 3C 
0828- 22 26 2A 25 32 36 3A 3F 0930- 26 28 28 28 28 28 28 28 0A38- 00 00 00 00 00 00 00 00 OB40- 3E 37 33 31 30 30 30 00 
0830- 23 27 2B 2F 33 37 38 3F 0938- A8 A8 A8 A8 A8 A8 A8 A8 GA40- 00 00 00 00 FC FE 03 01  OB48- 00 OC 0E 07 C3 C3 C3 C3 
0838- 23 27 2B 2F 33 37 38 3F 0940- 50 50 50 50 50 $0 50 50 CA4E- 00 00 00 00 00 O0 O0 00  OB50- E7 FE 3C 00 00 OC IC 38 
0840- 20 24 28 2C 30 34 38 3c 0948- DO DO DO DO DO DO DO DO OAS0- OF 1F 30 20 00 00 O0 00 OB58- 30 30 30 30 39 1F OF 00 
0848- 20 24 28 2c 30 34 38 3c 0950- 50 50 50 50 50 50 50 50 0AS8- 00 00 00 00 01 03 FE FC CB60- 00 CO EO 70 38 IC 0E FF 
0850- 21 25 29 2D 31 35 39 3D 0958- DO DO DO DO DO DO DO DO  OA60- 00 00 00 00 00 00 00 00 O0B68- FF 00 00 00 00 03 03 03 
0858- 21 25 29 2D 31 35 39 3D 0960- 50 50 50 50 50 50 50 50 UVA6S- 20 30 1F OF 00 00 00 00  OB70- 03 03 03 3F 3F 03 03 00 
0840- 22 26 2A 2E 32 36 3h 3€ 0968- DO DO DO DO DO DO DO DO OA70- 00 10 30 60 CO F8 F8 CO 0B78- 00 7F 7F 63 63 63 63 63 
0868- 22 26 2A 2E 32 36 3A 3E  0970- 50 50 50 50 50 50 50 50  OA78- 60 30 10 00 00 11 19 OD OB80- E3 C3 83 00 00 OC iC 38 
0870- 23 27 2B 2F 33 37 38 3F 0978- DO DO DO DO DO DO DO DO OA8O- 07 3F 3F 07 OD 19 11 00 OB88- 30 30 30 30 38 1F OF 00 
0878- 23 27 28 2F 33 37 38 3r 0980- 00 00 00 00 00 00 00 00 OA88- 00 00 00 00 00 FO FO 00  OB90- 00 FC FE 87 C3 C3 C3 C3 
0880- 20 24 28 2C 30 34 38 3c  0928- 00 00 00 00 00 00 00 00 CA90- 00 00 00 00 00 03 03 03 0B98- C7 8E OC 00 00 OF 1F 39 
0888- 20 24 28 2c 30 34 38 3c 0990- 00 00 00 00 00 00 00 00 0A98- 03 3F 3F 03 03 03 03 00 0BAO- 30 30 30 30 39 ir OF 00 
0890- 21 25 29 2D 31 35 39 3D 0998- 00 00 00 00 00 FF FF 00  OAAO- 00 00 00 00 00 00 00 00  OBA8- 00 03 03 03 83 C3 E3 73 
0898- 21 25 29 2D 31 35 39 3D  09A0- 00 00 00 OO 00 00 00 00  CAAS- 00 00 00 00 00 00 00 00  OBBO- 3B 1F OF 00 00 00 00 3F 
O8A0- 22 26 2A 2E 32 3€ 3A 3E 09A8- 00 33 33 00 00 00 00 00 GABO- 98 FC ?C 38 00 O0 00 00  OBB8- 53F 01 00 00 00 00 00 00 
08A8- 22 26 2A 2E 32 36 3A 3€ 09B0- 00 00 00 OF OF 00 00 OF  OAB8- 00 00 00 00 00 00 00 00  OBC0- 00 3C FE E? C3 C3 C3 C3 
08B0- 23 27 2B 2F 33 3? 3B 3F  09B8- OF 00 00 00 00 00 00 00  OACO- 00 00 00 08 00 00 00 03 OBC8- E7 FE 3C 00 00 OF 1F 39 
08B9- 23 27 2B 2F 33 37 3B 3r 09C0- 00 00 00 00 00 00 00 00 OAC8- 03 03 03 03 00 00 00 00  OBDO- 30 30 30 30 39 1F 0F 00 
G8C0- 00 00 00 00 00 00 00 og 09C8- 00 CO CO FC FE C7 C3 C3 0AD0- 00 00 00 00 00 00 00 00 08D8- 00 3C 7E E7 C3 C3 C3 C3 
08C3- 80 80 80 80 80 80 80 ag 09D0- 07 OE OC 00 00 0C 18 1F 0AD8- 00 00 00 CO 00 00 00 00 OBEO- 67 FE FC 00 00 0C 1C 38 
08D0- 00 00 00 00 00 00 00 00 09D8- 3F 30 30 30 38 1C QC 00 0AEO=+ 38 38 38 00 00 00 00 00 OBE8- 30 30 30 30 38 IF 0F 00 
08D3- 80 80 80 80 80 80 80 80 09E0- 00 00 78 FC CC FF FF CC 0A£8- 00 00 00 00 00 cO F0 3C 0BFO- 00 00 00 60 EO0 EO EO O0 





0BF8- 00 00 00 00 00 00 0G 00 G0E10- 01 01 01 01 01 00 00 00 1028- 00 CO E0 70 30 30 30 30 1240- 70 EQ CO 00 00 0F 1F 3B 
0C00- 38 38 38 00 00 00 00 00 O0E18- 00 FC FE 07 03 03 03 63 1030- 70 FO FO 00 00 03 C7 CE 1248- 33 33 33 33 33 33 33 00 
0C08- 00 00 00 00 EO0 E0 EO0 00 0E20- 07 FE Fc 00 00 OF 1F 38 1038- CC CC CC CC E6 7F 3F 00 1250- 00 00 00 06 06 00 00 06 
0C10- 00 00 00 00 00 00 00 00 0E28- 30 32 36 3E 1C 3F 2F 00 1040- 00 FF FF 60 30 30 30 70 1258- 06 00 00 00 00 00 00 00 
0C18- B8 F8 78 00 00 00 00 00 60E30- 00 FF FF 83 83 83 83 83 1048- E0 C0 00 00 00 3F 3F 00 1260- 00 00 00 00 00 00 00 00 
0C20- 00 00 00 00 80 CO 60 30 0E38- C7 FE 7C 00 00 3F 3F 01 1050- 00 00 00 00 3F 3F 00 00 1268- 00 A8 50 A8 50 A8 50 A8 
0C28- 10 00 00 00 00 00 00 03 GE40- 01 03 07 OF 1D 38 30 00 1058- 00 00 00 00 00 F3 F3 00 1270- 50 A8 00 00 00 2A 15 2A 
0C30- 07 0C 18 30 20 00 00 00 0E48- 00 3C 7E E7 C3 C3 C3 C3 1060- 00 00 00 00 00 00 00 00 1278- 15 2A 15 2A 15 2A 00 00 
0C38- 00 00 CO CO CO CO CO CQ 0E50- C7 8E OC 00 00 0C 1C 38 1068- 00 3F 3F 00 00 00 00 00 

0C40- CO c0 00 00 00 00 OC 0C 0ES58- 30 30 30 30 33 1F 0F 00 1070- 00 00 00 00 30 30 F3 F3 

0C48- OC OC ac OC OC 0C 00 00 0E60- 00 03 03 03 03 FF FF 03 1078- 00 00 00 00 00 00 00 00 

0C50- 00 00 00 10 30 60 CO 80 0E68- 03 03 03 00 00 00 00 00 1080- €0 E0 7F 3F 00 00 00 00 

0C58- 00 00 00 00 00 00 00 20 0E70- 00 3F 3F 00 00 00 00 00 2088- 00 00 FF FF 00 80 CO 60 

0C60- 30 18 OC 07 03 00 00 00 0E78- 00 FF FF 00 00 00 00 00 1090- 30 10 00 00 00 00 3F 3F Û Û 

0C68- 00 OC 0E 07 03 83 C3 C3 OE80- 00 FF FF O0 00 OF 1F 38  2098- 03 07? OC 18 30 20 00 00 Récapitulation 


0c70- E7 7E 3C 00 00 00 00 00 0E88- 30 30 30 30 38 1F 0F 00 10A0- 00 00 00 00 00 FF FF 00 
0C78- 00 33 33 00 00 00 00 00 0E90- 00 3F FF CO 00 00 00 00 10A8- 00 00 00 00 00 00 00 00 DEFILE.OBJO 
0C80- 00 CO E0 70 31 33 36 34 0E98- CO FF 3F 00 00 00 OÙ 03 108B0- 00 3F 3F 00 00 00 00 00 


0C883- F0 FO 00 00 00 OF 1F 38 OEAO- OF 3C 3C 0F 03 00 00 00 1088- 00 FO F0 20 30 F0 EO0 30 1280- AS FB C9 81 90 03 4C 99 
0C90- 30 30 30 18 3F 3F 00 00 OEA8- 00 FF FF 00 00 00 00 00 10C0- 30 FO EO 00 00 3F 3F 00 1288- El 69 10 85 FD 20 17 13 
0C98- 00 F0 F8 1C 0E 07 07 0E OEB0- 00 FF FF 00 00 03 OF 3C 10C8- 00 3F 3F 00 00 3F 3F 00 1290- A0 02 B1 CE 85 EF DO O1 
OCA0- 1C F8 F0 00 00 3F 3F 03 OEB8- 30 1E 1E 30 3C 0F 03 00 10D0- 00 F0 F0 60 30 30 30 70 1298- 60 C8 B1 CE AA C8 B1 CE 
0CA8- 03 03 03 03 03 3F 3F 00 OECO0- 00 OF 1F 30 E0 CO C0 EO0 1008- E0 C0 00 00 00 3F 3F 00 12A0- 85 CF 86 CE A9 00 85 D? 
OCB0- 00 FF FF C3 C3 C3 C3 C3 O0EC8- 30 1F 0F 00 00 3C 3E 03 10E0- 00 00 00 00 3F 3F 00 00 12A8- Ad D7 B1 CE 29 ?F 20 C? 
0C88- E7 BE 1C 00 00 3F 3F 30 O0EDO0- 01 00 00 01 03 3E 3C 00 10E8- 00 CO E0 70 30 30 30 70 12B0- 12 E6 D7 AS D7 C5 EF DO 
OCCO- 30 30 30 30 39 1F OF 00 O0ED8- 00 1F 3F 70 EO C0 CO EO 10FO- E0 C0 00 00 00 OF 1F 38 1288- EF A9 18 85 D? A9 20 20 
OCC8- 00 FC FE 07 03 03 03 03 OEEO- 70 3F 1F 00 00 00 00 00 10F8- 30 30 30 38 1F OF 00 00 12C0- C7 12 C6 D7 DO F7 60 C9 
0CD0- 07 0E OC 00 00 OF  1F 38 O0EE8- 00 3F 3F 00 00 00 00 00 1100- 00 FO FO 60 30 30 30 70 12C8- 20 90 4B 38 E9 20 85 EB 
OCD8- 30 30 30 30 38 1C ac 00 0EF0- 00 03 03 03 83 C3E3 73 1108- E0 CO 00 00 00 FF FF OC  12D0- A9 00 A2 08 46 EB 90 03 
OCEO0- 00 FF FF 03 03 03 03 03 OEF8- 3B 1F OF 00 00 3C 3E 3F 1110- 18 18 18 1C OF 07 00 00 12D8- 18 69 18 6A 66 EB CA DO 
OCE8- 07 FE FC 00 00 3F 3F 30 O0F00- 33 31 30 30 50 30 30 00 1118- 00 CO EQ 70 30 30 30 60 12E0- F5 85 EC A5 EB 18 69 80 
OCFO0- 30 30 30 30 38 1F 0F 00 OF08- 00 00 00 78 FC 84 84 FC 1120- FO F0 00 00 00 07 OF 1C 12E8- 85 EB A5 EC 69 09 85 EC 
OCF8- 00 FF FF C3 C3 C3 C3 c3 O0F10- 78 00 00 00 00 00 00 00 1128- 18 18 18 OC FF FF 00 00 12F0- 85 EE A5 EB 18 69 0C 85 
0D00- C3 C3 03 00 00 3F 3F 30 0F18- 00 00 00 00 00 00 00 00 1130- 00 00 F0 F0 60 30 30 70 12F8- ED 90 02 E6 EE A9 00 85 
0D08- 30 30 30 30 30 30 30 00 O0F20- 00 CO E0 70 30 30 30 30 1138- 60 00 00 00 00 00 3F 3F 1300- F9 A4 F9 B1 EB 85 FC 81 
0D10- 00 FF FF C3 C3 c3 C3 c3 0F28- 70 60 40 00 00 OF 1F 38 1140- 00 00 00 00 00 00 00 00 1308- ED 85 FA 20 3D 13E6 F9 
0D18- C3 C3 03 00 00 3F 3F 00 0F30- FO FO 30 30 38 18 08 00 1148- 00 00 E0 FO 30 30 30 30 1310- A5 F9 C9 0C DO EB 60 A5 
0D20- 00 00 00 00 00 00 00 00 0F38- 00 00 00 DC FE 33 21 El 1150- 30 30 00 00 00 00 31 33 1318- 69 85 CE A5 6A 85 CF A0 
0D28- 00 FC FE 07 03 03 83 83 0F40- C7 06 00 00 00 00 18 38 1158- 33 33 33 33 3F 1E 00 00 1320- 00 A9 49 D1 CE DO 07 C8 
0D30- 87 8E 8C 00 00 0F 1F 38 0F48- 21 21 33 1F 0E 00 00 00 1160- 00 00 30 30 FE FE 30 30 1328- A9 DO D1 CE FO 0E 18 A5 
0D38- 30 30 31 31 31 3Fr 3F 00 0F50- 00 00 20 30 18 OC QC 18 1168- 30 00 00 00 00 00 00 00 1330- CE 69 07 85 CE 90 E8 E6 
0D40- 00 FF FF CO CO co cO co 0F58- 30 20 00 00 00 00 00 00 1170- 1F 3F 30 30 30 00 00 00 1338- CF 4C 1F 13 60 A6 FB 88 
0D48- cO FF FF 00 00 3F 3F 00 0F60- 00 00 00 00 00 00 00 00 1178- 00 FO FO 00 00 00 00 00 1340- 8D 00 08 85 FF BD CO 08 
0D50- 00 00 00 00 00 3F 3F 00 0F68- 00 00 00 00 00 00 00 00 1180- FO FO 00 00 00 OF 1F 38 1348- 85 FE 66 FA 66 FC AO 27 
0D58- 00 00 00 00 03 FF FF 03 O0F?0- 00 00 00 00 18 18 18 18  j188- 30 30 30 18 3F 3F 00 00 1350- 81 FE 90 04 09 80 50 02 
0D60- 00 00 00 00 00 00 00 00 0F78- 18 18 18 18 18 18 18 18 1190- 00 30 FO CO 00 00 00 00 1358- 29 7F 4A 91 FE 88 10 F0 
0D68- 30 3F 3F 30 00 00 00 90 0F80- 00 00 00 00 0E 1F 3F 26 1198- CO F0 30 00 00 00 00 03 1360- E8 F4 FD DO DB A0 0F A2 
0D70- 00 00 00 0303 03 03 FF 0F88- 00 00 00 00 00 00 00 00 11A0- OF 3C 3C OF 03 00 00 00 1368- FF CA DO FD 88 DO F8 60 
0D78- FF 03 03 00 00 0E IE 38 0F90- 00 00 00 00 00 00 00 00 11A8- 00 F0 F0 00 00 00 00 00 

0D80- 30 30 38 1F 0F 00 00 00 0F98- 00 CO E0 70 30 30 30 30 11B0- 00 FO FO 00 00 0F 1F 38 

0D88- 00 FF FF E0 F0 B8 1C 0E 0FA0- F0 F0 00 00 00 OF 1F 38 11B8- 18 GE CE 18 38 1F OF 00 

0D90- 07 03 00 00 00 3F° 3F 00 0FA8- 30 30 30 18 3F 3F 00 00 11C0- 00 30 70 E0 CO 80 80 C0 

0D98- 01 03 07 OE 1C 38 30 00 OFBO- 00 FF FF 60 30 30 30 30 11C8- EO 70 30 00 00 30 38 1C Réca itulation 


00A0- 00 00 FF FF 00 00 00 00 O0FB8- 70 E0 C0 00 00 3F 3F 18 11D0- 0F 07 07 OF 1C 38 30 00 
O0DA8- 00 00 00 00 00 00 3F 3F  O0FCO- 30 30 30 30 38 1F 0F 00 11D8- 00 FO FO 00 00 00 00 00 HIFT+ONERR 


ODB0- 30 30 30 30 30 30 00 00 OFC8- 00 CO E0 70 30 30 30 30  11E0- F0 FO 00 00 00 C3 C7 CE 

ODB8- 00 FF FF 3C FO CO CO F0 OFD0- 70 60 40 00 00 OF 1F 38  11E8- CC CC CC E6 7F 3F 00 00 0300- A9 OF 85 36 A9 03 85 37 
oDCo- 3c FF FF 00 00 3F 3F 00 OFD8- 30 30 30 30 38 18 08 00  11F0- 00 30 30 30 30 30 B0 FO 0308- A9 00 85 48 4C EA 03 8D 
ODC8- 00 01 01 00 00 3r 3F 00 O0FE0- 00 CG EO 70 30 30 30 30  11F8- 70 30 00 00 00 30 38 3C  0310- 4A 03 08 8A 48 AD 4A 03 
ODDO- 00 FF FF OF 3C FO CO 00 O0FE8- 30 FF FF 00 00 OF 1F 38  1200- 36 33 31 30 30 30 00 00 0318- A2 07 DD 3A 03 FO OC CA 
ODD8- 00 FF FF 00 00 3r 3F 00 O0FFO- 30 30 30 30 18 3F 3F 00  1208- 00 CO E0 70 34 36 33 31 0320- 10 F8 C9 EO 9% 08 3% E9 
0DE0- 00 00 03 0F 3C 3F 3F 00 OFF8- 00 CO EO 70 30 30 30 30  1210- 70 E0 CO 00 00 0F 1F 3B  0328- 20 DO 03 BD 42 03 8D 4A 
ODE8- 00 FC FE 0? 03 03 03 03 1000- 70 E0 CO 00 00 OF 1F 3B  1219- 33 33 33 33 33 33 33 00 0330- 03 68 AA 28 AD 4A 03 4C 
ODF0- 07 FE FC 00 00 OF 1r 38 1008- 33 33 33 33 33 33 33 00  1220- 00 F0 FO 01 03 06 O4 00 0338- FO FD CO DC E0 F8 FC FD 
ODF8- 30 30 30 30 38 1F OF 00 1010- 00 00 60 60 FC FE 67 63  1228- FO FO 00 00 00 OF 1F 38 O0340- FE FF C1 C3 Al C5 D5 CS 
0E00- 00 FF FF 83 83 83 83 83 1018- 63 03 00 00 00 00 00 00  1230- 30 30 30 18 3F 3F 00 00  0348- AD Al 00 68 A8 68 A6 DF 
0E08- C7 FE 7C 00 00 3F 3F 01 1020- 3F 3F 00 00 00 00 00 00  1238- 00 CO E0 70 31 33 36 34 0350- 9A 49 98 48 60 


Accompagné d'une cinquantaine de pages de documentation, Oisk Manager permet de recréer | 
les commandes du Dos, redéfinir l'organisation d'une disquette, grêce à un jeu d'instructions qui ‘ 
en f ait un langage simple d'accès à la disquette. Il offre également un progremme simple d'édition 
à l'aide de commandes évoluées. 4 utilitaires figurent aussi sur la disqueite : 

Utili-disque : reconstruction d'une disquette détruite, Vérification, Plan d'occupation 

Ültra-cepie : pour ur backup particulièrement rapide 

Edicat : Edition du catalogue, classement des fichiers, Titres. 

Multi-disque : pour le classement de tous vos programmes (tri instantané). 


Oisk Manager, le Dos en Kit : 


de Dan Steeveÿ 
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Michel Dominique 


our tous ceux qui 
estiment péremptoire 
l'affumation d'Olivier 
Herz dans son atticle 
"EXP. (x*SQR (163)) est-il en- 
tier ?" (Pom's 12), selon laquelle 
x est supposé connu, voici un 
petit programme en Applesoft, 
écrit pour calculer ce nombre. 


Pour ce faire, nous utiliserons le 
résultat mathématique suivant : 
n/2=1+(1/3)+(1*2)/(3*S)+...+ 
(n!/1*3...*(2n+1))+... 
Cette méthode compte parrni les 
plus simples, mais elle permet un 
calcul rapide par ordinateur. 
L'algorithme utilisant la méthode 
de Horner consiste à calculer par 
approximations successives et en 
s'arrêtant au rang n : 
n=2+(1/3)*(2+(2/5))*(2+ 
(3/7))*(2+(4/9))*(2+...*(2+ 
(n/2n+1)) 


Le programme commence par 
déterrniner le nombre de termes 
calculés (lignes 30 et 70); 
l'expérience montre qu'il s'agit 
environ des 10/3 du nombre de 
décimales voulu. Puis il effectue 
le calcul dans la courte boucle de 


lignes 100 à 250, ce qui prend, 
ei secondes, un temps équivalent 
au 25ème du carré du nombre de 
décimales. Le reste du 
programme est consacré à 
l'affichage et au stockage des 
décimales sur disque (fichier 
TEXT). 


Remarques 


1) Ce calcul se programme en 
Basic (8 décimales) par : 
PI-0:FOR N=30 TO 1 
STEP-1:PI=PI*N/(2* 
N+1)+2:NEXT:PRINT 
PT 


2) On peut aussi effectuer le 
calcul avec le Calculateur 
Entier de Jacques Duma 
(Pom's 12), par exemple avec 
100 décimales : 

K = 10100: K=2*K: 
N=333: I=2*N: I=I+ 
1 : P=0 111#: 3#: 
P=PxN: P=P/I: P=P+ 
K: N=N-1: I=I1-2 ?P 
Notons que ce calcul prend 
près de 50 mn, contre 6 mn 
30 au programme Basic avec 
le même nombre de 





En effet, le 


décimales. 
Calculateur Entier n'est pas 
plus rapide pour le produit 
d'un grand nombre par un 
petit que pour le produit de 


deux grands nombres, 
contrairement à un programme 
Basic que l'on peut adapter à 
la longueur des nombres. 


3) Le programme ne foncwonne 
correctement que pour un 
calcul avec au moins six 
décimales. 


NDER : Pour aller plus avant 
dans la connaissance de R, le 
supplément au ‘Petit Archimède’ 
n° 64-65 de mai 1980 consacre 
280 pages à une cinquantaine de 
méthodes de calcul et en prime les 
25000 premières décimales pour 
véri fier vos calculs. Cet ouvrage 
esten vente à la librairie du Palais 
de la Découverte à Paris. 


MOMENT INRIA SERRES 421170670821 CBS ITA 0ETON RAA SSSR 23172535 AORLIBARE I TASOE 


Programme PI 


REM ***#RXRK#ARAHRAARRAARAHXX 


REM CALCUL DES DECIMALES 

REM DE PI 

REM MICHEL DOMINIQUE 

REM ARR ARRETE 

GOSUB 5000 

10 TEXT : HOME : CLEAR : IN 
PUT "NOMBRE DE DECIMALES 

“;NDEC$ :NDEC = VAL (N 

DECS$}): IF NDEC$ = "" THE 
N END 

12 ON NDEC < 10 GOTO 10 

24 REM *X#XX XXE AREA ARE 

25 REM CALCUL DU NOMBRE 


26 REM DE BOUCLES 
27 REM %## #2 6 2 6 A EN 


Un & & NN bn © 


30 VTAB 4: HTAB 14: PRINT 
"PATIENCE...":NMEM = I 
NT (NDEC / 5) + ( INT ( 
NDEC / 5 < > NDEC / 5) 


):N = (NDEC + 1) * LOG 
(10) :S = 0:NB = 1 
70NB = NB +1:S = S + LO 
G (2 +1 / NB): IFN > 

= $S THEN 70 


80 DIM DEC (NMEM) :DEC(1) = 
100000:NI = DEC(1}:NJ = 
NI * 10:AD = 2 * NI 
89 REM  #% #2 4 6 08 06 6 me 06 
90 REM CALCUL DES DECIMALES 
91 REM **AA# XX RER RAA AAA 
100 FOR N = NB TO 1 STEP 
- 1: VTAB 10: HTAB 15: 


PRINT NB -N+1;"/"; 


NBE:M=0:K=2*N +1 
120 FOR I = 1 TO NMEM:2 = 
DEC(I) + M:DEC(I) = I 


NT (Z / K):M = (Z - DE 
C(I) * K) * NI: NEXT I 

170 M=0 

180 FOR I = NMEM TO 2 STEP 

— 1:DEC(I) = DEC(I) 

* N + M:M= INT (DEC( 
I) / NI):DEC(I) = DEC( 
I) - M * NI: NEXT I 

230 DEC(1) = DEC(I1) * N + 
M:M = INT ( INT (1) / 
NJ) :DEC(1) = DEC(1) - 
M * NJ + AD 

260 NEXT N 

270 GOSUB 1000: GOSUB 4000 
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66 


: GOTO 10 


991 REM #*##X##XtXtxtttttt tx 


993 REM 
994 REM 


AFFICHAGE 
DES DECIMALES 


996 REM *****##Xktktxxtttxx 


1000 


1010 


1020 


1030 


1040 


1050 


1060 
1070 


1080 


1090 


1100 


1110 
1120 


1130 


HOME : FOR I = 1 TO 3: 
CALL - 1052: NEXT 
PRINT TAB( 5);"*** PI 
AVEC “;NDEC;" DECIMAL 
ES ***": POKE 34,3: HO 
ME 

C$ = STR$ (DEC(1))}:C$ 
=  RIGATS (CS$, 5) :DEC( 
1) = VAL (C$) 

PRINT "3, ";:N = D:L = 
0 

FOR I = 1 TO NMEM - 1 
IF N = 6 THENN=0:P 
RINT : PRINT SPC( 3); 
sL = L +1 

2S STRS$S (DEC(I)) 
IF LEN (2$) < 5 THEN 
Z$ = "O" + Z2$: GOTO 10 
70 

PRINT 2$;" ";:N=N + 
1 

NEXT I 

LL = NDEC - 5 * (NMEM 
- 1): IF NOT LL THEN 
1140 

2$ = STR$S (DEC(NMEM)} 
IF LEN (Z$) < 5 THEN 
Z$ = "O" + Z$: GOTO 11 
20 

PRINT LEFTS (Z$,LL) 


Jacques Supernant 


1140 


3991 
3993 
3994 
3996 
4000 


4010 


4020 


4030 
4040 


4050 


4055 
4060 


4070 
4100 


4110 
4130 
4125 
4130 
4140 
4150 


INVERSE : VTAB 23: HTA 
B 3: INPUT "PRESSEZ <R 
ETURN> POUR CONTINUER" 
:KEY$: NORMAL : RETURN 
REM ttttttttttttttttt et 
REM SAUVEGARDE DES 
REM DECIMALES 
REM Httttttttttttætt tt 
PRINT " VOULEZ - VOUS 
UNE SAUVEGARDE ? ";: G 
ET H$ 
IF H$ < > "O" AND HS 
< > "N" THEN VTAB 4: 
GOTO 4000 
IF H$ = "N" 
RN 
HOME :D$ = CHRS (4) 
PRINT " NOUS ALLONS SA 
UVER LES DECIMALES DE 
PI " 
PRINT "CALCULEES SUR D 
ISQUETTE." 
PRINT 
PRINT "INTRODUISEZ UNE 
DISQUETTE PUIS PRESSE 
Fi 
INPUT " "RETURN '.";HS$ 
PRINT DS$S"OPEN PIDEC": 
PRINT D$"DELETEPIDEC" 
PRINT D$"OPENPIDEC 
PRINT DS"WRITEPIDEC 
PRINT NDEC: PRINT NMEM 
FOR DEC = 1 TO NMEM 
PRINT DEC(DEC) 
NEXT 


THEN RETU 


4160 
4162 


4165 


4167 
4170 
4991 
4993 
4994 
4995 
4997 
2000 
5010 


5020 


2030 


5040 
2050 
6000 
6010 
6020 
6030 
6040 
6045 
6050 
6060 
6070 
6080 
6100 
6120 


Max : le moniteur étencu 


Apple Jf+, //e, //c 


Ce moniteur autorise un contrôle de l'exécution des 
routines en langage machine 


Un mode Trace et Pas à Pas très évolués et sélectifs sont complétés 
par un accès direct aux registres du 6502 (ou 65C02). 


La gestion des fenêtres d'écran simplifie le mode trace. 
Une routine permet la recherche de suites d'octets. 


Un mini-assembleur très souple fait partie de Max. 
Une ligne de commande peut devenir une boucle avec l'ordre JUMP 







PRINT D$"CLOSE 

PRINT : INPUT "SAUVEGA 
RDE DE SECURITE ? ";H$ 
IF H$ < > "O" AND H$ 

< > "N" THEN 4162 

IF H$ = "O" THEN 4055 


RETURN 
REM #*###X4#4#%4#X4Xt 444 


REM AFFICHAGE DES 
REM DECIMALES 

REM DEJA TROUVEES 
REM #*####4#4444#4ttt tt tt 
TEXT : HOME : PRINT 
PRINT "VOULEZ-VOUS VOI 


R LES DECIMALES": PRIN 
T "DEJA TROUVEES ‘“; 
INPUT R$: IFRS < >" 
O" AND R$ < > "N" THE 
N 5020 

IF R$ = "“O" THEN GOSU 
B 6000 
PRINT 
RETURN 
HOME :D$ = CHRS (4) 
PRINT D$S"OPEN PIDEC" 
PRINT D$"READ PIDEC" 
INPUT NDEC 

INPUT NMEM 

DIM DEC{NMEM) 

FOR DEC = 1 TO NMEM 
INPUT DEC(DEC) 

NEXT 

PRINT D$"CLOSE PIDEC" 
GOSUB 1000 

RETURN 


: PRINT 
















Les fichiers 
source sont sur 
la disquette. 















Disquette et 
documentation : 
150,00 F TTC 
franco . Bon de 
commande 
page”. 
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Guide Magnard du tout logi- 
ciel — 1985/1986 — 415 pages 
- 149 FF. 


Dix programmes par page sont 
décrits schématiquement dans des 
cartouches bien présentées, mais 
contenant une information bien 
entendu schématique. A ne pas 
lire si vous cherchez le moindre 
avis sur les programmes propo- 
sés. Le titre est totalement abusif : 
ce "tout logiciel" parvient à 
ignorer AppleWorks, AppleWri- 
ter, Multiplan, … De toute façon, 
avec moins de 200 programmes 
sur Apple If, on ne pourrait même 
pas présenter tous les program- 
mes publiés par Pom's pour ses 
lecteurs depuis le N°1 ! 


dBase II — Applications de 
Christophe Stehly, Sybex — 268 
pages — 148 FF. 


Le livre a été réalisé en utilisant la 
version 2.4 francisée de dBase If. 
Une première partie illustre les 
possibilités du programme en 
gestion de fichiers, la program- 
mation de dBase IT étant couverte 
dans une seconde partie, à l'aide 
d'exemples de gestion variés. Un 
dernier chapitre fort intéressant 
explique comment il faut s'y 
prendre pour bien constituer ses 
fichiers. Ouvrage clair et bien 
présenté. 


La troisième pomme de Jean- 
Louis Gassée, Hachette — 200 
pages — 64 FF. 


Le sous-titre, Micro-informatique 
et Révolution Culturelle, décrit 
mieux le contenu de cet ouvrage 
que nous devons à l'ancien 
directeur d'Apple France, vice- 
président depuis quelque mois 
d'Apple en Califomie. Lecture 
indispensable pour comprendre le 
genre de vocation qu'a pu susciter 
l'esprit Apple, et dont nous 
espérons qu'il continuera à en 
susciter … 


Les écrans du Apple Ile par 
Phil Robinson, Hachette Infor- 
matique — Deux tomes de 26 
pages chacun — 110 FF pièce. 
Traduit de l'anglais. 


Il fallait oser un tel titre … 
Présentation luxueuse : de la 
couleur, de la mise en page, des 
thèmes couverts chacun en une 
page simple ou double. Bien fait. 
Ceci dit, en 2 fois 64 pages, on ne 
peut en aucun cas être exhaustif. 


Apple Ilc User Guide par 
Gary Phillips et Donald Scellato, 
Brady (Prentice Hall) — 370 pages 
— $20.75. 


Ouvrage couvrant tout ce qui peut 
toucher de près ou de loin les 
utilisateurs du Ifc. Tout d'abord, 
146 pages sur le Ilc lui-même 
dans lesquelles on trouve par 
exemple un chapitre sur l'utili- 
sation du disque System Utilities 
et un chapitre sur DOS et ProDOS 
avec une intéressant comparaison 
instruction par instruction. Ensui- 
te, une cinquantaine de pages de 
guide pour l'acheteur de logiciel, 
et enfm un guide d'achat pour les 
périphériques. Bien réalisé, mais 
à consulter pour voir si c'est bien 
ce que vous recherchez. 


Destination Aventure Apple 
Ile, I1+ et Ilc de Delton Horn, 
Editions du PSI - 240 pages - 
140 FF. Traduction. 


La façon dont on programme un 
jeu d'aventure est expliquée en 
détail autour d'un premier jeu. 
C'est clair et détaillé, mais pas 
forcément perforinant au niveau 
de la programmation. Ainsi, à un 
endroit, on teste la même chaîne 
sur une cinquantaine de valeurs 
possibles, au lieu d'effectuer une 
recherche dichotomique dans une 
table alpha : cela fait en moyenne 
25 comparaisons au lieu de 6 ! 
Trois autres jeux sont listés en fm 
d'ouvrage, accompagnés d'expli- 
cations et d'organigrammes. 


Multiplan sur Macintosh de 
Goulven Habasque, Sybex — 233 
pages — 148 FF. 


La première partie concerne 
l'initiation à Multiplan sur Mac- 
intosh, avec seulement 53 pages 
très aérées : ce n'est donc pas 
pour vous initier à Multiplan que 
nous vous conseillons cet ouvra- 
ge; l'initiation n'est pas assez 
approfondie à notre avis. Ce qui 
est intéressant, c'est la suite : 
vingt-sept petits tableaux d'anal- 
yse numérique (6), de géométrie 
(6), de statistiques (6), d'écono- 
mie (5) et de gestion (4). Nous 
vous conseillons de consulter ce 
livre avant de l'acheter, pour voir 
si les exemples vous intéressent. 


BASIC Engineering, Scien- 
ce, and Business Programs 
for the Apple II and Ile, 
Brady Comm. Co, Prentice-Hall 
— 330 pages - $29.95 

Malgré son titre anglais très géné- 
ral, ce livre traite avant tout de 
divers problèmes de statistiques : 
gestion des matrices, régressions 
linéaires, systèmes d'équations 
multiples, tris, résolution d'équa- 
tions différentielles, simulations, 
etc. 


Chacun des problèmes est abordé 
d'abord théoriquement et par 
l'étude d'exemples, puis par un 
programme en Applesoft, facile- 
ment transposable d'ailleurs sur 
d'autres ordinateurs. En revan- 
che, aucune routine en assembleur 
6502 n'est proposée. 


Macintosh, quels logiciels ? 
de Pierre Courbier, ETSF —143 
pages. 

Démonstration, de rapide à très 
schématique, d'un certain nombre 
de logiciels pour Macintosh. Un 
fourre-tout bien rédigé, mais dont 
l'utilité ne nous semble pas évi- 
dente. Réalisé sur ImageWriter, 
mais en qualité courtier 





MacAstuces par Hervé Thiriez, 
Editions du PSI — 264 pages - 
150 FF. 


Hhmm ! Difficile de parler du 
petit dernier du rédacteur en chef. 
Le mieux est peut-être de lui 
demander de le présenter 
lui-même : 

“Ce livre est destiné à tous les 
utilisateurs du Macintosh ayant 
déjà fait le tour de leur machine. 
On y trouve en effet de nombreu- 
ses explications sur des notions 
parfois mal maîtrisées (le rôle du 
Finder, par exemple), et de multi- 
ples trucs et astuces d'utilisation. 
Une première partie (88 pages) 
couvre le Macintosh lui-même : 
les “allergies” du Mac, le 
système, le bureau, le clavier, les 
disquettes et les configurations. 
La seconde partie - les logiciels — 
traite de douze logiciels standards. 
L'avenir est couvert dans la 
troisième partie, avec les intégrés, 
accélérateurs et autres program- 
mes faciliteurs. 


Une disquette d'accompagnement 
facultative (200 FF TTC) fournit 
un ensemble de règles pour 
MacWrite, un utilitaire pour 
Muitiplan, des démos animées 
ThinkTank et MacDraw, des 
images MacPaint bien utiles, un 
package de programmes statis- 
tiques et graphiques et une police 
de caractères graphiques créée par 
l'auteur. 


Entièrement réalisé en Macintosh, 
mais sorti sur Laser Writer, ce 
livre est bien présenté, avec de 
nombreuses illustrations. Quant 
au contenu... un must, je 
l'espère, pour ceux qui veulent 
tirer le maximum de leur 
Macintosh !”? 


Apple Ilc, guide de l'utili- 
sateur de Thomas Blackadar, 
Sybex — 147 pages - 98 FF. 
Encore une traduction .… 

Cet ouvrage est très général et 
apporte un début d'initation au 
Basic, donnant à la fin un guide 
de référence du Basic limité aux 
seuls mots réservés introduits 
dans le livre (?). A consulter pour 
voir si on ne préfère pas lire la 
documentation Apple et faire des 
économies. 





Multiplan et Chart sur Mac- 
intosh de Xavier Bouilloux, 
Edimicro — 235 pages — 159 FF. 


Cela m'énerve tou jours de voir un 
livre sorti sur ImageWriter sans 
même utiliser la qualité courrier. 
Certes, cela gagne du temps, maïs 
quand même. La première partie, 
guide de l'utilisateur pour le livre, 
Macintosh, Multiplan et Chart, est 
très succincte : à peine 30 pages 
pour l'ensemble des deux logi- 
ciels ; ce n'est pas comme cela 
qu'on apprendra à les utiliser. La 
seconde partie comporte 10 exem- 
ples, dont 5 avec passages au 
graphique. L'intérêt principal de 
l'ouvrage tient à l'illustration de 
l'utilisation de Chart, sur lequel il 
existe moins d'ouvrages. Nous 
aurions préféré voir un livre 
uniquement sur Chart, avec un 
chapitre sur la communication 
avec Multiplan. 


Les ressources de l'Apple 
Ile de Nicole Bréaud-Pouliquen, 
Editions du PSI — 106 pages — 85 
EF: 


Le premier ouvrage en français où 
l'on trouve un certain nombre de 
renseignements pour la program- 
mation du Ilc, avec en particulier 
la liste des instructions du 65C02. 
A conseiller à tous ceux qui pro- 
gramment en assembleur sur le [lc 
et, aussi, à ceux qui auront mis le 
chip du Ilc sur leur Apple II. 


Mulitiplan facile de Georges 
Liégois, Marabout — 126 pages — 
29 FF. 


Un exemple typique de travail 
rapide : le livre est écrit autour de 
la version américaine de Multi- 
plan, pour "tous" matériels. C'est 
ainsi que les tableaux sont sortis 
en Macintosh, alors que le mode 
d'emploi se réfère aux comman- 
des de Muitiplan avec les autres 
matériels. Le souci de ratisser 
large amène l'auteur à présenter 
les commandes communes à tous 
les matériels, sauf au Macintosh 
(pourtant cité en première et qua- 
trième de couvertuie) pour lequel 
Muitiplan s'utilise très différem- 
ment. Avec cette approche "tous 
matériels", le lecteur est privé de 
la présentation des raccourcis 
disponibles sur tel ou tel matériel. 





Basic Applesoft Lexicum, 
(Manuel de référence alphabé- 
tique Basic - DOS 3.3 - ProDOS) 
de Paul Merry, Mnémodyne - Un 
pavé — 168 FF. 


Cet ouvrage date d'un an, mais 
nous n'avions pas encore eu 
l'occasion de le voir. Il ajoute à 
l'ancien manuel de référence, déjà 
couvert dans Pom's, 62 pages sur 
le ProDOS, bien utiles dans la 
mesure où la littérature relative au 
ProDOS est encore pauvre. Enfm, 
maintenant, la reliure est un peu 
plus solide … 


Macintosh : outils, progi- 
ciels, applications de Xavier 
Gaucherand, Edimicro — 237 
pages — 148 FF. 


Un des rares ouvrages généraux 
sur le Macintosh qui ne se 
contente pas de refaire le mode 
d'emploi de base du Mac avec ses 
logiciels "résidents" et Multiplan. 
Cinq parties : présentation du 
matériel, systèmes et langages, 
logiciels d'application, domaines 
d'utilisation et choix d'une 
configuration. Les analyses de 
points forts et points faibles des 
logiciels sont assez bien vues. Un 
livre intéressant. 


Le secrétariat par traitement 
de texte de Ilya Virgatchik, 
Marabout — 287 pages — 160 FF. 


Nous sommes toujours dans les 
produits sur CP/M : bien que cela 
ne soit pas apparent dans le titre, 
il s'agit d'un manuel pratique, et 
complet, de Wordbstar. 


Le manuel du Basic par M. 
Waite et M. Pardee, Hachette 
Informatique — 344 p. — 130 FF. 
Traduit de l'anglais. 


Il s'agit d'un manuel de cours, et 
non d'un livre de référence. Le 
cours est bien fait, clair et 
pédagogique, agrémenté par de 
nombreux petits dessins humo- 
ristiques que j'ai bien appréciés. 
Bonne lecture pour débutant. Il 
s'agit cependant du Basic Micro- 
soft : n'achetez donc pas ce livre 
si vous vous intéressez exclusi- 
vement à l'Applesoft ou si vous 
cherchez des informations sur les 
particularismes des Basics sur 


Apple. 
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Courrier des Lecteurs 


Alexandre Avrane, Olivier Herz 


Possesseur depuis peu d'un 
Apple Ilc, et tout nouvel abonné 
de votre revue, je viens de 
découvrir par hasard des signes 
étranges que je vois parfois 
utiliser dans certains logiciels. Je 
me suis par la suite aperçu que je 
pouvais les faire apparaître en me 
mettant en mode INVERSE. 
Comment puis-je utiliser correc- 
tement ces signes ? 


D'autre part, tous les conseils 
{(POKESs entre autre) donnés aupa- 
ravant dans votre revue, sont-ils 
valables sur I!c ? Enfin, pouvez- 
vous me conseiller un ouvrage qui 
permette d'approfondir les possi- 
bilités de mon Apple préféré ? 


Géraldlumy 
84210 La RoquelPernes 


Les caractères souris que vous 
avez découvert par hasard sur 
votre Apple Ilc sont disponibles 
directement sur cette machine af m 
de pouvoir y utiliser la philoso- 
phie Macintosh (souris et menus 
déroulants). 


Un exemple de démonstration et 
de nombreux autres renseigne- 
ments techniques que vous re- 
cherchez sont indiqués dans le 
livre "Les Ressources de l'Apple 
Ilc" (Editions du PS). 


En ce qui concerne les différents 
conseils publiés par Pom's depuis 
le premier numéro, ceux-ci sont 
utilisables tels quels lorsqu'ils 
appellent le DOS, ProDOS ou 
l'Interpréteur Applesoft. En re- 
vanche, certaines adresses du 
moniteur Autostart, de la carte 
contrôleur de disques, et des 
interrupteurs entrée/sortie ne sont 
pas applicables directement sur un 
Ilc. 





J'ai créé, avec une table de formes 
(Shape de l'Applesoft), une carte 
d'Europe que je charge par un 
"Bload Europe, A8192". J'utilise 
ensuite un programme Basic pour 
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repérer les coordonnés des pays. 


Ayant, pour l'instant, entré les 2/3 
des coordonnées, je m'aperçois 
que la page graphique se trans- 
forme à chaque nouvel ligne de 
programme : des traits horizon- 
taux apparaissent dans tous les 
sens. J'ai essayé de mettre un 
LOMEM:16384, mais sans résul- 
tat. Quelle est l'erreur ? 


Laurent Poppeschi 
76200 Dieppe 


Celle-ci provient très certainement 
de la taille de votre programme 
Basic. En effet, la localisation en 
mémoire vive de celui-ci déborde 
sur les adresses des pages graphi- 
ques haute résolution. 


Une première solution consiste à 
charger votre image graphique en 
16384 (54000) et non 8192 
($2000) et à utiliser HGR2 au lieu 
de HGR. 

Deuxième possibilité : réduisez la 
taille de votre programme en éli- 
minant les REMSs (Pom's N° 11) 
et en concaténant les lignes; vous 
pouvez aussi revoir votre techni- 
que de dessin (par exemple en uti- 
lisant une boucle FOR... NEXT 
qui lit les coordonnées en DATA 
et les écrit par HPLOT). 


Troisième méthode: charger votre 
programme Basic au-dessus de la 
première page graphique utilisée; 
votre programme est alors localisé 
à une adresse inhabituelle mais 
vous disposerez de moins de 
place mémoire pour vos variables. 
Pour cela, exécutez le programme 
suivant avant votre propre pro- 
gamme : 

10 POKE 104,64 POKE 


16384,0:CLEAR:PRINT 
CHR$S(4) "RUN progr." 


Attention : cette dernière méthode 
dérange les pointeurs intemes de 
l'Applesoft et il pourra vous être 
nécessaire de rebooter par la suite. 


Il existe enfin une dernière tech- 
nique plus élégante qui permet de 


faire “enjamber” un programme 
en Applesoft par-dessus les pages 
graphiques : voyez pour cela la 
page 63 du numéro 8 de Pom's 
ou le Recueil N°2 (p. 213-214) 
pour obtenir le listing du module 
en assembleur SPLITTER. 


Dans le numéro 18 de Porm's, j'ai 


été très désappointé de m'aperce- 
voir que le programme FENETRE 
ne fonctionnait pas correctement. 
En effet, la commande "& LET 
NV,VT,LN,NI(IL)" n'est pas 
acceptée par mon Apple lle. Le 
message "ILLEGAL QUANTITY 
ERROR" apparaît. 


Xavier Garcin 
01630 St. Genis-Pouilly 


Vous avez raison, il y a une erreur 
dans l'atticle, page 24. Il faut 
lire : 

& LET NV,VT,HT,LN,NI(,IL) 
avec : 

NV nom d'une variable 

VT tabulation verticale 

HT tabulation horizontale 

EN longueur de la barre inverse 
NI nombre d'items 

IL _interligne (optionnel) 


Par ailleurs, ce programme, déci- 
dément marqué par la malchance, 
avait subi un ennui de montage. 
Son listing était incomplet, et les 
lecteurs non abonnés aux dis- 
quettes ont dû attendre le n°19 
pour pouvoir l'utiliser. Pardon … 


+ L'envoi de codes ASCII 
compris entre 0 et 127 peut être 
nécessaire (par exemple l'impri- 
mante EPSON LOQ1500 imprime 
obligatoirement en italique si elle 
reçoit des codes compris entre 
128 et 255). Or la routine PRINT 
de l'Applesoft met automati- 
quement le 8ème bit à let ne 
permet donc que d'envoyer des 
codes compris entre 128 et 255. Il 
en est de même d'AppleWriter. 
On peut généralement forcer le 
8ème bit à O0 au niveau de la carte 
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interface ou de l'imprimante en 
positionnant correctement les 
switches. 

Mais alors on ne peut plus 
envoyer de codes compris entre 
128 et 255, ce qui peut aussi être 
utile, mais de manière plus 
exceptionnelle, par exemple pour 
définir des caractères program- 
mables. Le problème ayant été 
déplacé peut être résolu en 
utilisant une routine en langage 
machine telle que celle proposée 
par Apple Seedrin (Por's n°12), 
ou, plus simplement, par un 
POKE A,X où X est le code 
ASCII à envoyer (compris entre O 
et 255) et À est l'adresse 
correspondant à la sortie des 
données sur la carte interface. Elle 
dépend évidemment de la carte 
utilisée. Par exemple, pour la 
carte Supersérie Apple placée 
dans le slot 1, A est égal à 49304. 
Si l'imprimante n'a pas de buffer, 
ou si la liaison est particulièrement 
lente, il peut être nécessaire de 
prévoir une temporisation entre 2 
POKESs successifs, pour éviter 
que des caractères se perdent. 
Notons au passage que 
l'imprimante ImageWriter inter- 
prète correctement le 8ème bit lors 
des séquences de définition de 
caractères programmables, même 
lorsque les switches sont 
positionnés pour forcer le 8ème 
bit à0. 

- Le ç’ (ASCII 92) ne peut pas 
être utilisé dans les textes 
imprimés par APPLEWRITER 
(version ][+) car il est inter prêté 
comme caractère de soulignement. 
Un lecteur aurait-il trouvé le 
moyen de changer le caractère de 
soulignement? En attendant, j'ai 
défini le ‘ç’ comme un caractère 
programmable (associé au code 
ASCII 106) de mon imprimante 
IMAGEWRITER et j'ai prévu un 
élément du glossaire qui insère 
dans mon texte la séquence des 
codes ASCII 27, 44, 106 ,27 ,36. 
Ainsi, par CTL-G suivi d'une 
seule touche, je passe en alphabet 
"utilisateur" (27,44), j'imprime le 
"ç’ (106) et je reviens au jeu de 
caractères normaux (27,36). On 
peut faire la même chose pour une 
autre imprimpue. 


+ _ Encore un problème de 8ème 
bit: dans le n° 9 de Pom's, O. 
Herz propose une routine qui 


permet de récupérer dans.un 
tableau de variables alphanu- 
mériques le contenu d'un 
catalogue de disquette DOS. En 
fair, on récupère dans ces 
variables des caractères dont le 
8ème bit est forcé à 1. Ce n'est 
pas gênant dans le programme de 
démonstration, mais si l'on utilise 
cette routine dans un autre 
programme, il est impossible, par 
exemple, de comparer des noms 
de fichiers tirés du catalogue et 
des noms de fichiers entrés au 
clavier (qui sont en mémoire avec 
le 8ème bit égal à 0). La solution 
consiste à forcer à O le 8ème bit 
dans la routine d'O. Herz (AND 
#%01111111, en assembleur), La 
chaîne de caractères A$ de la ligne 
10 devient alors: "300:38 48 84 
FD A0 00 29 7F 9] FE EGFE DO 
02 E6 FF 68 A4 FD 60 A9 A0 60 
N D823G" et le POKE 56.18 de 
la ligne 40 devient POKE 56,20. 


Jean-Claude Lengrand, 78000 
Versailles 





Lorsqu'on utilise un programme 
de gestion de données avec une 
disquette "fichier" initialisée selon 
une procédure normale, il est 
tou jours ennuyeux de rencontrer, 
lors de l'enregistrement de 
nouvelles données, l'erreur 
“disquette pleine". L'appel d'une 
simple routine en langage 
machine, chargée à l'adresse 
$300, permet de connaître le 
nombre de secteurs encore libres. 
En enregistrant momentanément 
les données soit dans la carte 
langage, soit dans la mémoire de 
la carte 80 colonnes “étendue”, 
initialisée respectivement en 
pseudo-disquette de 16K (voir 
Pom's 12, “Disque virtuel 
16Ko”), ou 64K (voir Pom's 14, 
“Disque virtuel 64Ko”), et en 
faisant un appel, avant et après, à 
cette routine, il est possible de 
confronter l'occupation en 
secteurs de ces données avec le 
nombre de secteurs restés libres 
sur la disquette "fichier", et de 
décider par programme 
l'initialisation d'une autre 
disquette. Cette routine est tirée 
du programme “HELLO complet” 
{Pom's 6) et adaptée comme suit : 


+ A 





FRE.S 
1 ORG $300 
A VTOC EQOU $SB3F2 
3 JSR SAFF 7 
4 LDA #$00 
5: STA COUNT 
6 STA COUNT+1 
7 LDY #$8C 
8 NEXTS LDA UTOC, Y 
9 TESTS BEQ NEXTT 
10 ASZL 
11 BCC TESTS 
12 PHP 
JE] INC COUNT 
14 BNE OTAHR 
15 INC COUNT+1 
16 OTEHR PLP 
17 BNE TESTS+2 
18 NEXTT DEY 
19 BNE NEXTS 
20 RTS 
21 COUNT DFB 2 
22 END 
FRE 


0300- 20 F7 AF A9 00 8D 25 03 
0308- 8D 26 03 A0 8C B9 F2 B3 
0310- FO OF OA 90 FB 08 EE 25 
0318- 03 DO 03 EE 26 03 28 DO 
0320- F1 88 DO E9 60 


Sauver cette routine comme suit : 

BSAVE LIBRE,A$300,L$25 
En début de programme de 
gestion, mettre l'instruction : 

PRINT CHR$(4)"BLOAD 

LIBRE,S6,D1” 
Pour connaître le nombre de 
secteurs libres "SL", "s" étant le 
numéro du slot et "d" le numéro 
du drive, insérer cette ligne 
d'instructions : 

POKE 43626,5: 

POKE 43624,d: 

CALL 768: 

SL=PEEK(805}+ 

PEEK(806)*256 
Pour initialiser une nouvelle 
disquette “fichier” avec 526 
secteurs, insérer cette ligne 
d'instructions : 

POKE 46922,96: 

POKE 46923,234: 

POKE 44723,4: 

PRINT CHRS$(4)"INIT 

XX, S6,D2”: 

PRINT CHRS(4) 

"DELETEXX" 


Thierry Haurie - ViaNapoli , 2b 
21027 ISPRA (V À) - Italie 
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Micro-Informations 
Jean-Michel Gourévitch 


our les aficionados d'Apple, la nouvelle 
a résonné comme un déchirement : Steve 
Jobs s'en va, la société qu'il a créée lui 


intente un 


procès. Après Steve 


Wozniak, voici que part l'autre père fondateur 
d'Apple, et un peu de la micro-informatique. On 
aura beau dire que la croissance d'une société a ses 
raisons, qu'il faut, un jour, trancher le cordon 


ombilical, il n'empêche 


: les Applemaniaques en 


auront comme un pincement au Cœur. 


Pas de quoi paniquer, cependant, dans l'immédiat : 
Jobs a quitté Apple avec des idées et queiques 
ingénieurs. On entendra à coup sûr reparler de lui. 
Quant à Apple, la société à la pomme ne manque pas 
de projets dans ses cartons pour les trois à quatre 
années à venir. Après, On verra. 


Panmni ces projets, on trouvera de quoi moderniser 
l'Apple // et muscler le Macintosh. 


Moderniser 
l'Apple // 


Priorité chez Apple : la remise au 
goût - et à la technique — du jour 
de l'Apple //. Si, en France, ses 
ventes ont un peu faibli en 
octobre, aux Etats-Unis, il conti- 
nue de résister vaillamment. Pour 
preuve, le contrat passé avec 
l'administration des postes de ce 
paie qui en a acheté en septembre 

00 d'un coup (s'ajoutant aux 
1490 acquis au début 1985). Au 
Sicob, Apple France a annoncé 
officiellement les nouveautés de 
l'Apple // qui avaient été présen- 
tées aux lecteurs de Pom's dans le 
numéro 20 : lecteurs Unidisk 3.5 
de 800 Ko, carte d'extension de 
mémoire de 1 Méga-octet, impri- 
mante Imagewriter Il. Voici donc 
l'Apple /! officiellement nanti de 
davantage de mémoire que le 
Macintosh. 


Et cela n'est qu'un début : les 
fabricants de cartes d'extension 
s'agitent L'un d'eux, Coit Vai- 
ley Computers, a trouvé moyen 
de caser 1536 Ko (plus d'un Mo 
et demi !) sur sa MultiRAM //e 
(utilisable seulement sur l'Apple 
Ile). Peuvent l'utiliser tous les 
programmes écrits aux spéci- 
fications d'Apple, et notamment 
Appleworks : la carte est livrée 
avec un patch” pour étendre la 
capacité d'Appleworks, un RAM 
disk permettant d'utiliser la carte 
comme disque virtuel, ainsi qu'un 
test de mémoires, un bus de la 
carte permet d'y relier un co- 
processeur 16 bits pour accélérer 
les traitements). Son prix est pres- 
que raisonnable : 699 dollars. 
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Une fois la mémoire de l'Apple // 
“gonflée”, encore faut-il l'utiliser, 
et avec une raPidité suffisante. 
Après avoir sorti MouseDesk, son 
"Finder" utilitaire style Mac, à 
fenêtres et menus déroulants, 
VersionSoft tavaillerait actuel- 
lement sur un "Switcher" pour 
l'Apple // (le Switcher permet de 
partitionner la mémoire de l'ordi- 
nateur, et d'y installer simulta- 
vément plusieurs programmes qui 
peuvent communiquer entre eux). 
Avec 1,5 Mo, il y a de quoi nicher 
as mal d'applications et de 
ichiers en mémoire. 


Reste le second problème : la 
rapidité. Le "vieux" processeur 
6502 de l'Apple // n'avait pas été 
conçu pour subir de telles épreu- 
ves ni gérer de telles mémoires. Il 
faudra donc incorporer à l'Apple 
1! un nouveau processeur. Peut- 
être le 68516, qui se substituerait 
au 6502. 


Une autre solution serait 
possible : installer sur une carte 
(en coprocesseur, donc) le tout 
nouveau 68020 de Motarola. Quel 
est encore celui-là ? Tout 
simplement la demière version du 
processeur 68000 qui équipe... le 
Macintosh, plus sophistiquée : 
bus 32 bits, capable d'adresser 4 
Giga-octets de mémoire, et 
surtout encore plus rapide (12,5 
Mhz contre 7,83 Mhz 
actuellement). Rêvons un peu : 
l'Apple // muni du même format 
de disquettes et du même 
processeur, et qui simulerait le 
fonctionnement du Mac ? Ce 
serait trop beau pour être vrai... 





Muscler le 
Macintosh 


£a tout cas, on parle déjà de ce 
processeur pour équiper le Mae- 
mtosh. Ou plutôt son successeur, 
car il est improbable que l'on 
puisse metke à niveau les Macs 
d'aujourd'hui. Avec ce proces- 
seur, disposer de deux à quatre 
Mo de mémoire vive, et améliorer 
ra pidité et gestion d'écran devien- 
drait possible. 


Le problème actuel du Macintosh, 
comme l'ont remarqué ses utili- 
sateurs, c'est qu'on atteint trop 
vite les limites de l'ordinateur. 
L'utiliser avec un système un peu 
copieux (enflé notamment de poli- 
ces de caractères et d'accessoires 
de bureau) et des programmes 
“mémorivores" comme Jazz exige 
désormais une greffe de mémoire 
et un disque dur. Et bien que les 
pr x du Macintosh aient été réduits 
en septembre (de quelques 
6 000,00 F HT pour le 512 Ko), 
l'addition atteint encore des 
sommets vVertigineux. À la 
mi-octobre, il fallait compter 
environ 16 000,00 F pour le 
nouveau disque dur d'Apple (pas 
encore cr pe et un peu plus 
de 5 000,00 F pour le passage à 
1024 Ko (greffe de 512 Ko 
supplémentaires). Aux Etats- 
Unis, Beck Tech propose cette 
transformation à 1 024 Ko pour 
$549, et offre aussi une extension 
portant la mémoire vive totale à 
deux Mo. Qui dit mieux ? 
Attention cependant : pour fran- 
chir la frontière des 512K0, et 
utiliser cette mémoire supplémen- 
taire directement (sans passer par 
un RAM disk), il est aécessaire de 
modifier la ROM du Macintosh, 
de façon à déplacer la zone de 
mémoire vive gérant l'écran du 
Mac. Une modification qui n'est 
pas sans danger et qui peut poser 
des problèmes de garantie. 


Voici une des raisons pour les- 
quelles les utilisateurs attendent 
avec impatience la nouvelle ver- 
sion de la ROM (128 Ko) 
qu'Apple préparerait pour le 
Macintosh. On risque hélas de 
l'attendre jusqu'à 1986. De même 
que le lecteur de disquettes double 
face. Il sera d'ailleurs peut-être 
remplacé par un lecteur de plus 
grande capacité. 


C'est en janvier prochain, lors de 
l'Assemblée générale des action- 
naires Apple que toutes Ces nou- 
veautés devraient être annoncées. 
Es attendant, il faudra faire avec 
ou, pour être plus précis, sans... 


Apple //e : de plus 
en plus de mémoire 
L'Apple // suscite des perfection- 


nements qui augmentent notable- 
ment sa puissance. 





Cêté stockage, voici le premier 
disque dur à instalier à l'intérieur 
de l'Apple // Surprise : il est 
français. D'une capacité de 10 
Mo, ce disque dur est conçu par 
Gerb Electronique, une société 
de Saint Nazaire. Corament loger 
un disque dur sous le capot de 
l'Apple // ? Bonne question, car il 
n'y a guère de place. Eh bien, on 
commence par re#rer le bloc 
d'alnentaton, et on lui subshitue 
le Mega-Core, qui content à la 
fois une alimentation de dimen- 
sions plus réduites, et un disque 
dur de 3 pouces et demi d'une 
capacité de 10 Mo. La cart de 
contrôle du disque s'installe dans 
un des slots de l'Apple; elle peut 
gérer 64 Mo. Le logiciel permet- 
tait de gérer le disque dur avec le 
système ProDOS, ce qui est nor- 
mal, mais aussi avec le Pascal, le 
CP/M et le Dos 3.3, ce qui l'est 
moins. Prix : 18 000,00 F. 


Côté mémoire vive (MEV), voici 
la Kache Board d'OKS. Une 
carte “intelligente” qui s'installe 
dans l'un des slots 4, 5, 6 ou 7. 
Elle contient 256 Ko, et conserve 
en mémoire seulement les don- 
nées les plus souvent utlisées; 
elle procède automatiquement à 
des sauvegardes régulières sur le 
disque dur, et réduit ainsi les 
temps d'accès. Un complément 
utile d'un disque dur pour $695. 


Côté processeur, voici une nou- 
velle carte incorporant un micro- 
processeur 65C816 (16 bits) : La 
MultiRAM IIEX de Cbeck- 
mate, qui comprend aussi une 
extension de mémoire. On enlève 
le processeur et la ROM de 
gestion de mémoire du chassis de 
l'Apple //, et on les enfiche sur la 
carte. Cette même carte inclut le 
Max Operating System de 
Micromagic (décrit dans le 
précédent numéro de Pom's). 
Prix de la carte : $200. Pour le 
moment, le hic, c'est qu'on ne 
trouve guère de programmes 
développés pour le 65C816. Et 
l'année prochaine ? Si l'Apple // 
se met au 16 bits. 


Apple //c : de plus 
en plus de mémoire 


La carte d'extension de mémoire 
d'Apple ne s'adresse qu'au Ile, 
mais les fabricants de cartes ont 
aussi pensé au Ilc. 


Applied Engineering propose 
ainsi sa Z RAM pour le Ilc. Elle 
s'installe à l'intérieur du //c et 
porte la mémoire vive à 640 Ko. 
Utilisables en disque virtuel, ou 
directement par certains programn- 
mes comme AppleWorks. Uwlisa- 
bles aussi avec le Pascal, le DOS 
3.3, CP/M et le ProDOS. En 
prime, la caïte contient un proces- 
seur Z-80 permettant, en effet, au 
lc de faire tourner tous les 
programmes en CP/M (DBase IT, 
Wordstar, etc.). Prix : $549 pour 
les 512 Ko. 








Checkmate Technology offre 
la MultiRAM C avec également 
512 Ko pour $429, mais sans le 
2-80. 


Toujours pour le Ilc, Applied 
Engineering vend aussi ($79) 
une horloge qui se branche sur le 
port série, 


Des classiques 


Sur le front des logiciels, voici 
d'abord des classiques qui nous 
reviennent de divers bords. 


Word Perfect de SSI, célèbre 
car il s'agit d'un des meilleurs 
traitements de texte de l'IBM FC, 
vient de se convertir à l'Apple //. 
il dispose de tout ce qu'on peut 
attendre d'un traitement de texte : 
visualisation à l'écran du texte tel 
qu'il sera inprimé, remplacement 
des mots, déplacements de para- 
graphes et de pages, correction 
orthographique (hélas, en anglais 
seulement), et il est configuré 
pour de nombreuses imprimantes, 
Prix : $179. 


Wordstar est aussi utilisable sur 
Apple //, à condition de disposer 
d'une carte d'extension CP/M. 
Voici quelque temps, son éditeur 
MicroPro proposait un ensemble 
comprenant Wordstar et la carte. 
Cet ensernble, composé de Word- 
star, Starindex, Spellstar, Report 
Star, Mailmerge, Datastar et Calc- 
star, ainsi que d'une carte CP/M 
fonctionnant à 6 Mhz, est bradé 
aujourd'hui par Total Access à 
299 dollars. Un prix défiant toute 
concurrence. 


Quant à Software Publishing, 
l'éditeur des célèbres PFS File et 
Write, il vient d'améliorer son 
tableur PFS Plan. Celui-ci gère 
maintenant en mémoire 70 rangs 
de 36 colonnes. Utilisation parti- 
culièrement facile, prix : $125. 


Des accessoires 
de bureau 


Monitor, par Dogstar Soft- 
ware, estun de ces programmes 
résidant en mémoire dont on à 
l'habitude sur l'IBM FC. li s'ins- 
talle derrière tout programme écrit 
en Pascal et pertnet, en pressant 
sur une touche, de disposer d'une 
calculatrice, du catalogue des 
fichiers, de fonctions de gestion 
de mémoire et de disquettes. Le 
programme offre même un mini 
assembleur-désassembleur. Prix : 
49 dollars. 


On connaissait les accessoires de 
bureau du Macintosh, en voici 
pour votre Apple // préféré : les 
AppleWorks Accessories. Ils 
s'installent dans Appleworks et 
ont été conçus par Pnpoint. On y 
trouve un carnet de notes, une 
calculatrice, un agenda, un com- 
poseur automatique de numéros 
de téléphone, et enfin la possi- 
bilité d'inclure des dessins dans 
des documents ou d'imprimer des 


adresses sur des enveloppes. Le 
tout pour seulement $69. 


D'autres accessoires de bureau, 
avec Jeeves de PBI. Une seule 
pression sur une touche du 
clavier, et l'exécution d'Apple- 
Works est suspendue; on peut 
alors utiliser un calendrier, un 
composeur de numéros de télé- 
phone avec annuaire, une calcula- 
ice à quatre fonctions, un 
bloc-notes ou un réveil. Prix : 
$S0. 


Des compatibles 


On les croyait disparus avec 
l'arrivée des Apple //e et //c : 
revoici les ordinateurs compa- 
tibies. Aux Etats-Unis, Franklin 
sort l'Ace 2000 ($699) 
compatible avec le //e et le //c. 
Grâce à un nouveau DOS : le 
FDos. 


Boîtes métalliques, double haute 
résolution graphique, caractères 
souris, claviers numériques. Ces 
machines ne violeraient pas le 
copyright de la ROM d'Apple. 


En France, certaines boutiques 
commencent à offrir des compa- 
tibles "made in Taïwan”, certains 
proposent même d'acheter les 
ROMSs chez Apple. Attention à ces 
matériels vendus à des prix inté- 
ressants, mais dont la légalité est 
douteuse. En tout cas, le fait 
qu'on continue à copier l'Apple // 
montre qu'il est loin d'être 
enterré. Les lecteurs de Pom's en 
doutaient-ils ? 


Pour le Macintosh : 
des langages 


Par la facilité de son apprentis- 
sage, le Macintosh se révèle un 
outil de choix pour l'application 
des systèmes experts et des langa- 
ges d'intelligence artificielle. Ces 
langages se multiplient à présent 
pour le Mac. 


Tout d'abord, la version Mac du 
Prolog Il. Bénéficiant de l'envi- 
rounement Macintosh (fenêtres, 
souris, etc.). Ce langage a été 
défini à partir du Prolog Il conçu 
par le GIA (Groupe d'intelligence 
artificielle de Luminy, Université 
d'Aix Marseille 11). Le Prolog II 
est distribué par Apple et vendu 
au prix de 4 744,00 F TTC. 


Ensuite, voici le MacExpert de 
MindSoft. Un système expert 
"d'ordre zéro", capable de créer 
un système résolvant dilemmes ou 
alternatives, en matière de dia- 
gnostic, de classification, de 
planification financière, etc. Ce 
langage est basé sur je calcul des 
propositions et ses bases de 
connaissance sont composées de 
règles construites à partir de 
phrases déclaratives. Ce système 
autorise 250 règles avec un Mac 
de 128 Ko et jusqu'à 1 000 
règles avec un 512 Ko. 


Autre système expert, Nexpert, 
développé par trois français (Alain 
Rappaport, Jean-Marie Chauvet et 
Patrick Perez) a fait l'admiration 
des américains. Ce programme — 
vendu quelques $5000 - 
accomplit les mêmes tâches que 
d'autres vendus plus de 
$100 000. Utilisant l'interface 
graphique du Macintosh, sa 
structure de connaissance est 
automatiquement construite, 
visualisée et mise à jour par le 
système. 


Enfin, Experlogo, un produit de 
Turgeon, est un Logo pour le 
Mac permettant la réalisation de 


graphiques. 
Communication. 


..… grèce au modern développé par 
Hello Informatique. Il numé- 
rote, se connecte et déconnecte 
automatiquement. Voici pourquoi 
ce modem ne comporte aucun 
bouton, sauf un de réinitialisation 
exceptionnelle du processeur. Ce 
véritable micro de communication 
comporte, comme l'Apple //c, un 
micro-processeur 65C02. Il peut 
donc être programmé. On peut 
développer un programme de 
communication et le télécharger 
dans le modem. Résultat : ce 
modem peut transformer l'ordi- 
nateur en serveur, il peut aussi 
servir de répondeur automatique, 
enregistrant automatiquement les 
messages des terminaux, ou des 
minitels qui l'appellent, et ce sans 
mobiliser l'ordinateur. Il peut 
aussi servir à crypter ou décrypter 
jes données échangées. Bien 
évidemunent, il fonctionne avec 
Mac Tell, MacTerminal, Version 
Com ou ASCII Express, et 
permet d'accéder aux serveurs à 
1.200 bauds. Le tout pour moins 
de 5.000 francs. 


Apple France offrira aussi deux 
nouveaux modems : l'un en bas 
de gamme pour utilisation à 300 
bauds, à faible coût. L'autre, plus 
évolué, à 1 200 baudbs. 


Des utilitaires 


Macdisk Catalog, de New 
Canaan Micro Code, permet 
d'établir un catalogue de vos 
disquettes et des fichiers qui s'y 
trouvent, avec un maximum de 
1092 fichiers par catalogue. Il 
permet aussi d'imprimer des 
cartes de référence. Prix : $40. 


Dream of the Phoenix pro- 
pose des disquettes vendues 40 
dollars, et remplies à ras bord 
d'utilitaires utiles. L'une contient 
un calendrier, une autre un 
progranime de communication 
permettant d'établir un bulletin. 
Les Quick and Dirty Utilities 
(en deux volumes) comprennent 
des configurations de terminaux 
s'installant dans le menu Pomme, 
des grapheurs, etc. 


Des accessoires 
de bureau 


Le menu "Pomme" du Macintosh 
est devenu le refuge favori des 
accessoires de bureau. Beaucoup 
sont distribués par les “Bulietins 
boards" américains. Ov y trouve 
notamment un compteur de mots 
(incapable cependant de compter 
les mots dans MacWrite), une 
horloge stylisée au nom parlant 
("Big Ben"), des chronos décom- 
ptant le temps, un programme 
permettant d'apprendre le Morse. 
Et même un mini “grapheur" 
permettant de réaliser à loisir 
camemberts, courbes, etc. en 
n'occupant que 18 Ko. 

Attention cependant aux incom- 
patibilités : ainsi MacTracks, qui 
permet de créer des macros (sé- 
quences de commandes autorma- 
tiques) dans un programme ne 
fonctionne pas avec le précieux 
Art Grabber (pour ouvrir un 
dessin MacPaint et l'incorporer 
dans n'importe quel programme). 
On risque souvent de voir appa- 
raître use bombe en appelant un 
de ces accessoires. 


Calculator Coustruction Set 
de Dubl Click permet de cons- 
truire soi-même une calculatrice 
personnalisée et de l'inclure dans 
Îe menu Pomme. Pnx : $99. 


Et voici enf m, pour Macintosh, 
Sidekiek, le célèbre programme 
développé par le non moins 
célèbre Philippe Kahn - patron 
français de Borland - et qui a fait 
un malheur sur i'IBM PC. La 
version Macintosh comprend une 
partie s'intégrant dans le menu 
"Pomme" avec un composeur de 
numéros de téléphone (il manque 
l'nterface pour le relier au réseau 
français), un mini programme de 
communications invoquable de- 
puis n'importe quelle application, 
une calculatice plus perfection- 
née que celle du Mac (permettant 
notamment d'impoimer la “bande 
de papier des calculs), un "spoo- 
ler” pour imprimer un texte tout 
en continuant à travailler avec le 
Mac (imprimer seulement des 
textes noc fonmatés), une horloge 
analogique et un calepin plus 
évolué que celui d'Apple. Avec ce 
calepin, on peut ouvrir n'importe 
quel fichier à l'intérieur d'un 
programme, prendre des notes, 
procéder à du Couper/ Coller 
entre programmes. Cet instrument 
est génial et permet notamment de 
disposer de fenêtres dans Mac- 
Write, alors qu'elles n'existent 
paturellement que dans Word. 
Egalement regroupées dans le 
menu “Pomme, des mini-feuilles 
de calculs permettant de calculer 
des frais, de noter une liste de 
choses à faire, etc. 


Quant à Sidekick lui-même, il 
s'agit d'un programme permettant 
d'établir un annuaire et, en cli- 
quant sur un nom, de composer 
automatiquement le numéro de 
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téléphone (à condition de disposer 
de l'interface nécessaire), de cal- 
culer automatiquement le coût de 
la communication et de prendre 
des notes. Un de ces programmes 
dont les Américains raffolent, qui 
a aussi soulevé l'enthousiasme de 
J.-L. Gassée, l'ex-patron d'Apple 
France; il souffre cependant d'un 
handicap : il occupe à Lui seul une 
partie de la disquette, et son 
système est mémorivore. Pour 
futüiser, il faut: 
1) deux lecteurs; 
2) se servir d'une disquette pour 
le seui système; 
3) installer les applications et fi- 
chiers sur la seconde. 


Pour un fonctionnement optimal — 
et cette règle vaut pour tous les 
accessoires de bureau — il vaut 
mieux disposer d'une mémoire de 
1 Mo et d'un disque dur 


Des jeux 


Pinball Construction Set, 
d'Electronic Arts, ce flipper en 
kit qui fit les beaux jours de 
l'Apple //, est maintenant dispo- 
nible pour le Macintosh. Ov peut 
même dessiner ses décors avec 
MacPaint. 


Fokker Triplane est l'un des 
prenv'ers simulateurs de vol pour 
le Mac, simulant, comme son 
nom l'indique, un triplan Fokker 
de la première guerre mondiale. 


De la musique 


De nouveaux programmes rendent 





encore plus musicaux aussi bien 
l'Apple // que le Mac. 

MUSE (MIDI Users Sequencer 
Editor), de Rolandcorp, permet 
de composer et jouer de la musi- 
que sur l'Apple // en utilisant 
l'interface MiDI, qui est devenue 
le nouveau standard en matière de 
musique d'ordinateurs. Possibi- 
lités : huit pistes indépendantes, 
correction automatique des erreurs 
rythmiques et utilisation possible 
avec unjoyshick. Prix : $150. 


Total Music, €: Southwork 
Music Systems, permet d'in- 
terfacer un Mac au standard 
MIDI. On peut enregistrer jusqu'à 
deux instruments MIDI à la fois. 
Prix : $489. 


Mega Track, de Musicworks, 
permet d'enregistrer directement 
depuis des instrumens MIDI. 
Pour 150 dollars. À noter que 
tous ces systèmes permettent 
d'inclure les signaux de codes 
horaires (SMPTE) rendant le Mac 
compatible avec les systèmes 
professionnels de vidéo et de 
cioémz 


Enfin, Studio Mac de Creative 
Solutions, utilisant aussi l'inter- 
face MIDI, permet de simuler un 
clavier de synthétiseur à 8 voix 
pour $595. 

Le Mac devient ainsi peu à peu un 
instrument de musique étonnant. 


Adresses 


Applied Engineering 
PO Box 798 


Carollton, Texas 75006 


Beck Tech 

Berkeley — Califormia 
Checkmate Technology 
S09 South Rockford Drive 
Tempe, Anizooa 85281-3021 


Coit Valley Computers 
14055 Waterfali Way 
Dallas, Texas 75240 


Creative Solutions 
4701 Randolph Rd Suite 
12 Rockville, MD 20852 


Dogstar Software 
PO Box 302 
Bloomington, IN 47402 


Dream of the Phoenix 
PO Box 10273 
Jacksonville, Florida 32247 
Dubl Click Software 
18201 Gresham Sireet 
Northridge, CA 91325 
Fraciel 

42, rue des Prébendes 
37000 Tours 


Gerb Electronique 

ZI de Brais — 44600 St Nazaire 
Hello Informatique 

1, rue de Metz — 75010 Paris 
JCR 

58, rue Notre Dame de Lorette 
75009 Paris 

MindSoft 

11, bd. Edgard Quinet 

75014 Paris 

Mausicworks 

18 Haviland 

Boston, MA 02115 


New Canaan Micro Code 


136 6x3 Ré 

OKS 

75 Fabeuyz Tri - Dexil 
Spcgburo, Ok : Sf6-1154 
PBI Software 

1155B-H es Drw 

Fosur City, CA 94354 


Pinpoint Publisli 
Tél : (415) 5301726 (USA) 


Rolandcorp ES 

7200 Duminiva Cacke 

Los Angeles, C A 9004) 
Software Publishing 
1901 Landings Drive 
Mountain View, CA 94043 


South Worth Music Systems 
Box 275, R.R.I 

Harvard, MA 01451 

SSI 

288 West Center Street 
Orem, Utah 84057 

Total Access 

PO Box 764246 

Redbird Airport - Hangar#8 
Dallas, TX 75376-4246 
Turgeon 

17, rueSextius Michel 
75015 Paris 


Version Soft 
66, rue Castagnary — 75015 Paris 


CG 





Jean-Louis Gassée, de passage en France pour lapromotion de sen 
livre “La troisième pomme” (voir bibliographie), a accordé une 
interview à Pom's, dont neus vous faisons partager quelques extraits. 
Nous n'avons hélas pas la place de retranscrire ici l'équivalent d'une 
heure de propos à bâtons rompus. Nous avons f ait cependant notre 
possible peur respecter l'ensemble de l'interview, malgré les 


indis pensables coupures. 


> Quelle est aujourd'hui la 
stratégie d'Apple ? 


JLG : Le stratégie d'Apple est en 
cinq points: 

+ tout d'abord, de développer 
deux lignes de produits, Apple Il 
et Macintosh, avec des modèles 
compacts et extensibles. 

* une ligne de périphériques 
communs, en fait, des standards 
de connection qui feront, à terme, 
que si par exemple on a un disque 
dur, il se connectera sur tous les 
appareils de la gamme ; on sim- 
plifie ainsi la vie de nos clients, de 
nos revendeurs et des auteurs de 
logiciel. 

- mettre à la disposition des utili- 
sateurs un interface matériel et 
logiciel pour la communication 
qui leur permettent de disposer 
d'une interface de communication 
normalisée, homogénéisée. C'est 
un problème technique considé- 
able mais je pense que, si on le 
résoud, on offrira des outils extrè- 
memernt compétitifs sur fe marché. 
- faire en sorte que nos clients 
eux-mêmes puissent être compé- 
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titifs dans un monde à fournis- 
seurs multiples, qu'ils puissent 
lire les fichiers établis avec les 
machines d'autres marques. 

+ le demier point est un peu plus 
à long terme, mais il en faut. 
C'est de faire des recherches sur 
les architectures du futur. Tout 
simplement parce que la vocation 
d'Apple, c'est d'intercepter l'in- 
novation et de l'industrialiser. 
Aujourd'hui, il y a tout un tas de 
recherches qui se font en logiciel 
et qui vont aboutir. Ce qu'on 
essaie de faire avec es archi- 
tectures du futur, c'est d'être prêts 
à les intercepter avec des machi- 
nes qui seront par exemple dix 
fois aussi puissantes qu'un Mac- 
intosh, plus puissantes d'ailieurs 
que pas mal de super-minis 
d'au jourd'hui. C'est à long terme, 
mais on pense avoir quelques 
idées sur la question. On a un 
budget recherche et développe- 
ment pour 1986 qui dépasse 100 
millions de dollars, alors 


> Avec l'extension de la 
£&amme Apple 11 comme de 


Entretien avec 
Jean-Louis Gassée 


celle du Macintosh, n'y a-t- 
il pas un risque sérieux 
d'augmenter les problèmes 
de compatibilité ? 


C'est l'éternel problème. Ma 
préférence, quand j'aile choix, va 
vers le maintien de la compañbilité 
plutôt que la rupture. Je pense que 
cela ne s'est pas trop mal passé 
avec le Ilc. Ov a parfois des 
surprises avec la compatibilité : 
on se dit après coup "Mais 
comment je n'y ai pas pensé...”. 
Nous fasons travailler beaucoup 
de testeurs. 


Ceci dit, l'Apple II va entrer en 86 
dans sa dixième année : cela a for- 
cément changé entre les machines 
d'aujourd'hui et celle du début. 
La meilleure stratégie d'un cons- 
tructeur, c'est d'organiser quand 
même une certaine dose d'incom- 
patibilité : quand vous voulez 
apporter des progrès, si vous 
n'abandonnez pas quelque chose 
de temps en temps, vous allez 
faire un monstre qui marchera 
avec toutes les cartes depuis le 
début de l'humanité et tous les 


logiciels. 


> Et l'avenir ? 


JLG : Il y a deux voies qui nous 
intéressent à très long terme. 


La première, c'est comment utili- 
ser la technologie des calcula&urs 
à jeu d'instructions réduit, des 
machines qui, au lieu d'avoir des 
jeux d'instructions très riches, 
auront un parti pris très dif féreat: 
sur une même surface de silicium, 
on va mettre une logique beau- 
coup plus simple et une énorme 
quantité de registres. Avec des 
centaines de reg'iskes, quand on 
programme cela efficacement, on 
peut avoir des vitesses de calcul — 
avec la technologie actuelle, le 
silicium -— exhraordinaires. Si on 
projette cela dans trois à cinq ans, 
c'est une des voies. 


L'autre voie, c'est d'explorer 
aussi les architectures multi- 
circuits. C'est très compliqué 
parce que, dans ce domaine-là,un 
plus un ne fait pas deux. G 
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Bon de commande 


Disquettes 


(cf. Pom'sn° 5) 
(cf. Pom'sn° 8) 
(cf. Pom's n° 10) 
(cf.Pom's n°11) 
(cf. Pom's n° 13) 
(cf. Pom's n° 15) 
(cf. Pom's n° 15) 
(cf. Pom's n° 18) 
(cf, Pom's n° 19) 
(cf. Page 68) 

(cf. Page 33) 

(cf. Page 29) 


Recueils 


N°1, recueil des revues 1 à 4 
Disquettes d'accompagnement 1 à 4 
N°2, recueil des revues 5 à 8 
Disquettes d'accompagnement 5 à 8 


Anciens numéros 


Revues 4. 7 & 
Revues O 10 11 12 13 14 15 16 17 18: 19r20 21 


Disquettes Apple II, //e, //e 
12:84 5 Lé 7: 8 «0: A0) TN 12 
13 14 15-16 17:18 19 20: 21 


Disquettes Macintosh 
14/15/16 groupées 


17 18 19 20 21 





Abonnements Pour 6 numéros à partir du n'C_] 


Abonnement à la revue seule 
Abonnement revue + disquettes Apple IT, //e, //c 
Abonnement revue + disquettes Macintosh 


Total TTC : 
Supplément avion hors CEE : 15,00F par numéro et/ou disquette : 


Montant du règlement : 


Envoyez ce bon et votre règlement à : EDITIONS ME V, 64 rue des Chantiers 78000 VERSAILLES 
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Apple, Logique et systèmes 
experts. 

per René DESCAMPS. 

224 pages - 120,00 FF. 

Pour résoudre des énigmes Jogi- 
ques et bâtir des raisonnements. 


Basic Plus 80 routines sur 
Apple If, 

per Michel MARTIN. 

144 pages- 95,00 ÉF. 

Pour muscler votre machine. 


Exploitatiou d’esquêtes sur 
Appk Il et IBM/PC, 
parJ.-F. GRIMMER. 

376 Pages - 120,00 FF. 

Le traitement d'enquêtes et 
l'analyse des données 


Diététique sur Apple EI, 

224 pages - 120,00 FF. 
Mangezéquilibré grâce à votre 
ordinateur. 


Apple en famille, 
Se ET SEHAN. 


232 pages - 120,00 FF. 


En vente en librairie, en boutique informatique 
et auprès de PS.I. Diffusion 





















40 programmes utilisés en 
Basic. 







Super Jeux Apple, 

256 pages - 120,00 FF. 
S0programmes de jeuxen Basic 
sur Apple. 








Apple, modems et serveurs, 
par Alain M ARIATT E. 

224 pages. 130,00 FF. 
Apprenez à communiQuer avec 
votre Apple. 


S0 modèles Multiplan pour 
gérer sur Apple et IBM/PC, 
par P. et F. GYSEL. 

50 applications concrètes inté- 
ressant de nombreux aspects de 
la vie de l’entreprise. 


La programmation des jeux 
d'Arcades sur Apple Île ei Ile, 
par Jean-Luc FISCHER. 

340 pages - 140,00 FF. 
Apprenez à créervosprogram- 
mes. 


B.P. 86 - 77402 LAGNY-SUR-MARNE CEDEX: 
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